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は じ め に 


最近 の パソ コン の 普及 は 著しく 、 企 業 を は じ め 学 校 や 家庭 で も パソ コン を 利用 す 
る よう に な り ま し た 。 そ の 多く は ワー プロ や 表 計 算 の ソフ ト を 使っ て いま す が 、 中 
に は は BASIC で 仕事 に 合っ た プロ グラ ム を 作成 し た り 楽 し ん だ り し よう と し て い 
ある おち 共 ある こと で ぞ で しょ う 。 

一 般 に BAS 1IC の 入門 書 で 独習 され る 場合 が 多い の で す が 、 せ っ か く 意 欲 を も 
っ て 始め た も の の 、 途 中 で 挫折 され る 方 も 少な く あ り ま せん 。 そ れ は 、 入 門 書 の 多 
く が 文法 を 中 心 に 説明 し て いる こと か ら 、 個 々 の 文法 は 理解 で き て も 実用 的 な プロ 
グラ ム の 技法 を 習得 で き な い こと や 、 和 無味 乾燥 な 文法 の 説明 に 興味 関心 を と 失っ て し 
まう と ころ に 、 原 因 が ある と 思わ れ ま す 。 

そこ で 本 書 は 、BAS 1IC の 文法 に こだわ ら ず グラ フィ ックス か ら 導 入 す る こと 
に よっ て 、 プ ログ ラミ ング の 楽し さき を 味 わい な が ら 次 第 に 実際 的 な を プログラミング 
技術 を 身 に つけ る よう 構成 し まし た 。 

本 書 が 利用 し た Qu ick BAS1IC は 、 構 造 化 アロ グラ ミン グ が で きる 言語 
で すか ら 他 の BAS 1IC ょ より も 使い や すく 、 わ か りや すい プロ グラ ミン グ が 可能 で 
す 。 表 計算 ソフ ト や デー タベース ソフ ト の 利用 と と も に 、Quick BASIC 
の プロ グラ ミン グ に よっ て パソ コン が も っ と 楽し いも の に な っ て ほし いと 願っ て お 
り まず す 。 

また 、 本 書 の 編集 に 当たっ て 実際 に 高校 生 の 実習 テキ スト と し て 利用 し た と ころ 、 
特別 に 説明 を し な いで 本 書 の み で プロ グラ ミン グ を 習得 させ る こと が で きま し た 。 
この こと か ら も ゃ も 、 本 書 を 高校 生 の 実習 テキ スト と し て お 奨め する と と も に 、 本 書 に 
よっ て Quick BAS1IC の 実用 的 な プロ グラ ミン グ を 楽し みな が ら 独 習 で き 
る も の と 期待 いた し て お り ま す 。 

な お 、 プ ログ ラム の 作成 に 当っ て 使用 し た 主 な ハー ド 及 び ソ フト は 次 の と お り で 
す 。 

バ パソ コン 本 体 。 PC9801VM2,.PC9801VX2.PC9801NS20 


グリ ジ タ PCPR201G,M1724P 

CRT PCKDSS1,PCKD854 

ハー ド デ ィ スク CRCMH4B,CRCMH2B 

モデ ム オムロン MD2400B, オ ムロ MD24FNS5.COMSTARZ2424/5 
ソフ ト Quick BASIC Ver 4.3 
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第 章 
準備 


購入 し た Quick BASIC を 実際 に 使え る よう 
に し ます 。 


1. 1 チョ ッ ト 我 慢 し て ! ! 


Quick BASIC を 購入 され だ た あな た だ は 、 す ぐに は じ め た だ たい 気持 ち で 胸 が 
いっ ぱい で し ょ う 。 で も チョ ッ ト 待 っ て くだ さい 。 

は じ め に 、Quick BASIC を 利用 する た だ ため の ハ ー ド ウェ ア や ソフ トウ ェ 
ア を 確認 し まし ょ う 。 


1 。 パソ コン に 適合 し た ソフ ト を 購入 し て くだ さい 。 

パソ ンコ ン は PC9800 シ リー ズ 、FMR50 シ リー ズ 、PANACOMM 
500 シ リー ズ な ど で す 。 

パソ コン の 記憶 容 量 は 、6 4 0KB (キロ バイ ト ) 以上 を 必要 と し ます 。 最 
近 の 機種 は 6 4 0 KB が 標準 装備 され て いま す が 、 以 前 の 機種 の 中 に は 384 
KB の も の も あり ます 。 その 場合 は 増設 し て 640KB に し て くだ さい 。 

640KB と いう の は 、 英 数 字 で 6 4 万 字 相 当 を 記憶 で きる と いう こと で す 。 
Quick BASIC は プロ グラ ム が 大 きい の で 、 記 憶 容量 が 少な いと 仕事 


が き な い の で す 。 


ボク は 頭 が よい の デー ス 


2。 ディ スク 装置 は 、 パ ソコ ン に 付い て いる 2 ドラ イブ の フロ ッ ピ ー デ ィ ス ク 装 置 


で 中 か で す 。 
た だ し 、Qu i ck BASIC は 多く の プロ グラ ム や デー タ か ら 構 成 さ れ 


て いる の で 、 読 み 書き の 速い ハー ド デ ィ スク の ほう が 快適 に 利用 で きま す 。 





ハー ド デ ィ スク は 、 速 く て 
快適 ! ! 快適 ! 1 


3。 MS 一 DOS の フロ ッ ピ ー デ ィ ス ク を 用 意 し ます 。 
MS 一 DOS は 、 マ イク ロ ソ フト 社 が 開発 し て 発売 し て いる オペ レー ティ ン 
グ シ ステ ム で す 。 今 の と ころ 、 世 界 の パソ コン の 多く が この ソフ ト を 基本 ソフ 


ト と し て 利用 し て いま す 。 


4 。 も ちろ ん 、 Quick BASIC Ve r 4. 5 を 用 意 し ます 。 
Quick BAS 1IC の 箱 を 開け る と 、 以 下 の フ ロッ ピー ディ スク が 入っ 
安 W ま す 。 


・ セ ッ ト ア ッ プ ディ スク 
Quick BAS1IC が 快適 に 使え る よう 準備 する た め の 
プロ グラ ム が 入っ て いま す 。 

・ プ ログ ラム ディ スク 
Quick BASIC の 最も 重要 な プロ グラ ム が 入っ て い 
ます 。 

・ オ ジラ リー ディ ス み 
Quick BASIC の プロ グラ ム の 中 で 利用 で きる 便利 
な プロ グラ ム の ライ プラ リ が 入っ て いま す 。 

・ ア ドバイ ザ デ ィ ス ク 
Quick BAS1IC の 使い 方 や 解説 が ば 入っ て いま す 。 


sllEellhgllFel 


そし て 、 厚 い 厚 い マ ニュ アル が 入っ て いま す 。 マ ニュ アル は 、Quick 
BAS 1IC の 文法 等 に つい て 詳細 に 解説 し て いま す が 、 カ タカ ナ の 専門 用 語 が 
多数 使わ れん て いる の で 読み こなす に は 相当 の 共 力 を 必要 と し ます 。 1 ペー ジ 晶 
か ら 順 に 読ん で 理解 し よう と する の で は な く 、 本 書 で プロ グラ ミン グ に 馴れ な 
が ら 、 辞 書 を 引く よう に 利用 し て くだ さい 。 


5 。 最 後に 、 漢 字 の 変換 シス テム を 用 意 し ます 。 
Quick BAS 1IC で 漢字 を 利用 する た め に は 、 次 の よう な 漢字 の 変換 
シス テム を 必要 と し ます 。 


PC9800 シ リー ズ MS-KANJI ATOK6 
〇 。 
1 ]FMR50 シ リー ズ MS 一 KANJI  OAK 


ATOK6 は 「 一 太郎 Ver3. 0」 の シス テム ディ スク に 入っ て いま す 。 
一 太郎 に は 「Ver4. 3] や 「 一 太郎 da shl] も ある の で す が 、 こ れ ら に 
付属 し て いる ATOK7 は 利用 で き な い よう で す 。 

OAK は FMR50 の MS 一 DOS シ ステ ム デ ィ ス ク に 入っ て いま す 。 


1. 2 さあ ! 準 備 で す ! ! 


いよ いよ 、Quick BAS1IC を 実際 に 使え る よう に 準備 を 始め ます 。 

この 準備 の こと と を 「 イ ンス トー ル 」 と いい ます 。 パ ソコ ン の 入門 書 や マニ ュ ア ル 
に は 必ず 出 て くる 言葉 な を の で す が 、 こ の 用 語 の た め に 準備 の 段階 で つま ずい た りす 
る も の で す 。 「 イ ンス トー ル 」 と いう 言葉 に は こと だ わら な いで 、 次 に 進み まし ょ う 。 


これ か ら の 仕事 は 、 次 の 2 つ で す 。 

1 。 新しい フロ ッ ピ ドー ディ スク を ワラ ォ ーー マット し まず す 。 

2. Quick BASIC の ディ スク か ら フ ォ ー マ ッ ト し た だ た フロッピー ディ スク 
に 必要 な ファ イル を 複写 し て 実行 用 の フロ ッ ピ ー デ ィ ス ク を 作り ます 。 


1。 新しい フ ロッ ピー ディ スク を フォ ー マ ッ ト し ます 。 

フォ ー マ ッ ト す る と いう こと は 、 広 い 原 野 を 区 切っ て 団地 を 造成 し て 、 何 丁目 
何 番地 と いう よう に 番地 を 付け る よう な も の で す 。 原野 に 無秩序 に 家 を 建て た の 
で は 、 ど こ に 誰が 住ん で いる の か わか ら な く な る で は あり ませ ん か 。 フ ロッ ピー 
ディ スク も 、 素 早く デー タ を 読み 書き する た め に 記憶 場所 に 番地 を 付け る の で す 。 


1. 電 源 を ON に し て 、A ド ライ ブ プ へ MS 一 DOS シ ステ ム デ ィ ス ク を セッ ト し 、 
リセ ッ ト ボ タン を 押し て MS 一 DOS を 起動 し て くだ さい 。 


2. 新 し い フ ロッ ピー ディ スク を 3 枚 用 意 し て 、「QB ワ ー ク ディ スク 」 、「QB 
アド バイ ザ デ ィ ス ク 」 、「QB 起 動 デ ィ ス ク 」 の ラベ ル を 貼っ て お きま す 。 


3.「QB ワ ー ク ディ スク | を B ド ライ ブ プ に セッ ト し て か ら 、FORMATB: と 入力 し 
て フォ ー マ ッ ト し ます 。 以下 は 画面 の 指示 に 従っ て 進め て くだ さい 。 


MS 一 DOS シス テム ディ スク 
〇 O 
の 
は es 0 呈 サザ サーク グ デ イラ み 
し へ 記 | で | $ 
| 
入力 後 は [J を 押す 。 (以下 同じ ) 


4.「QB ワ ー ク ディ スク 」 の フォ ー マ ッ ト が 終っ た だ たら 、「QB ア ドバイ ザ デ ィ ス 
ク 」 を B ド ライ ブ に セ モット し 、 同 様 に フォ ー マ ッ ト を し ます 。 


S. 次 に 「QB 起 動 デ ィ ス ク | を B ド ライ ブ に セッ ト し た ら 、 今 度 は FORMAT B: /S 
と 入力 し て 、 シ ステ ムク フォ ー マ ッ トル を し まず 。 
/S は 、MS 一 DOS の シス テム の うち IO.SYS、MS-DOS.SYS 及 び COMMAND.COM 


を フロ ッ ピ ー デ ィ ス ク の 先頭 部 分 に 複写 する こと で す 。 1IO.SYS 及 び MS-DOS.SYS 
は 隠し レフ ァイル な の で DIR コ マン ド で は 見 る こと が で きま せん 。 


A>FORMAT B: / ぐ 


2。 購入 し た Qu ick BAS IC の の フロッピー ディスク か ら 、 実 行 用 の フロ ッ 
ピー ディ スク を 作成 し ます 。 


ディ スク の 差し 替え が 面倒 で す が 、 間 違っ た ら [CTRL] (コン トロ ー ル キー) 
と C と を 同時 に 押す と 、 作 業 を 中 断 で きま す 。 


1. セ ッ ト ア ッ プ ディ スク を AF ドラ イブ ヘ へ セ ッ ト し て 、SETUP を 入力 し ます 。 


A>SETUP 


2. だ た くさ ん の 説明 が 表示 きれ ます か ら 、 こ れ を 読み な が ら 操 作 を すれ ば よい の で 
す 。 わ か り に くい 専門 用 語 は ホ ド ホ ド に し て 「 何 か キー を 押し て くだ さい 。」 
と いう メッ セー ジ に 従っ て キー を 押し て いく と 、 次 の 画面 が 表示 され ます 。 
メニ ュー の 選択 は 、 す で に 1 が 表示 され て いま すか ら | 条 | を 押し て くだ さい 。 


001CKBASTC も セット アッ プ ユー ディ リティ 


素 玉 玉 玉 玉 玉 玉 玉 玉 玉 キー メニ ュー > ギ ** 玉 玉 玉 素 来 玉 玉 玉 玉 玉 玉 玉 玉 素 玉 玉 玉 玉 玉 玉 玉 玉 玉 米 玉 玉 玉 


1. QuickBASIC の 利用 環境 を 作成 し ます 。 
2. QB の 概要 、 操 作 方 法 の 説明 を 行い ます 。 
3. セッ ト ア ッ プ を 終了 し ます 。 


率 素 玉 素 素 素 素 来 来 玉 玉 玉 率 呈 玉 玉 素 玉 来 素 素 玉 来 来 来 素 来 玉 来 来 来 素 素 来 玉 本 玉 玉 玉 玉 玉 氷 杯 玉 素 玉 玉 玉 玉 玉 玉 





@ メ ニュ ー を 選択 し て くだ さい 。 


3. す る と 、 次 か ら 次 へ と 入力 を 求め られ ます が 、 い ずれ も 画面 に あら か じ め 表 示 
きれ て いる の で その まま | 条 を 押し て くだ さい 。 
QuickBASIC セッ ト ア ッ プ ユー ティ リティ 


念 転送 先 の ドラ イブ 名 を 設定 し て くだ さい 。 ? A 
倫 ど の ドラ イブ ヘイ ンス トー ル し ます か ?B 


信 上 記 の 設定 で よろ し いで すか [N/Y]? Y 


QuickBASIC セッ ト ア ッ プ ユー ティ リティ 


念 数 値 演算 ライ ブラ リ を 選択 し て くだ さい [1:Alt Math / 2 Emu‥・] ? 1 
信 マ ウス を 使用 し ます か [Y/N]? Y 

代 マ ウス の 種類 を 選択 し て くだ さい [1: バ スマ ウス / 2: シ リ ……]? 1 
代 マ ウス ドラ イ バ を 選択 し て くだ さい [1:MOUSE.SYS / 2:MOUSE.COM] ? 2 
人 @ ド キュ メン ト フ ァイル を 転送 し ます か [Y/N]? Y 

人 @ サ ンプ ルプ ログ ラム を 転送 し ます か [Y/N]1? Y 


人 @ 上 記 の 設定 で よろ し いで すか [N/Y]? Y 





4.「 プ ログ ラム ディ スク |」 を A ド ライ ブ に 、 さ き ほ ど フ ォ ー マ ッ ト し た 「QB 起 
動 デ ジィ ス ク 」 を B ド ライ ブ プ に セッ ト し て 、 何 か キー を 押し ます 。 
する と 、Quick BASIC の 「 プ ログ ラム ディ スク 」 か ら 必 要 な ファ 
イル が 「QB 起 動 デ ィ ス ク 」 へ 複写 され ます 。 


[eg | 還 
(の 有 プロ グラ ム デ ィ ス ク 
旧 
PR QB 起動 ディ スク 


3.A ド ライ ブ に 「 ラ イブ ラリ ディ スク |」 を セッ ト し て 、 何 か キー を 押し ます 。 
する と 。 ui ek 取 ASTC の 「 ラ イプ ラリ ディ スク 」 か ら 必 要 な ラファ 
イル が 「QB 起 動 デ ィ ス ク 」| へ 複写 され ます 。 


ジオ メグ タ リリ デ ォ スネ ンク 


| 
グ 
= ん QB 起動 ディ スク 
に Se や 


6 上 区 ドイ オプ に に きき ほど アラ ォ ー マ ゼット し た |Q 了 サー ク デ ィ ス グ 」 を や セッ ト し て 


何 か キ ー を 押し ます 。 
する と 、Qui ck BASIC の 「 ラ イブ ラリ ディ スク 」 か ら 必 要 な ファ 


イル が 「QB ワ ー ク ディ スク 」 へ 複写 され ます 。 


_ ーー 

( 和 叶 ライ ブラ リ デ ィ ス ク 

| 
に ー 
QB ワー ク デ ィ ス ク 
に 玩 還 の | 例 
四 
、 続 いて B 


7.A ド ライ ブ プ に 「 ア ドバイ ザ デ ィ ス ク 」 を セッ ト し て 何 か キ ー を 押し 
ドラ イブ プ に さき ほど フォ ー マ ッ ト し た 「QB ア ドバイ ザ デ ィ ス ク 」 を セッ ト し 


て 、 何 か キー を 押し ます 。Qu ick BASIC の 「 ア ドバイ ザ デ ィ ス ク 」 
か ら 、 必 要 な ファ イル が 「QB ア ドバイ ザ デ ィ ス ク 」 へ 複写 され ます 。 


上 アド バイ ザ ア ィ スク 
記 当 を - 孤 QB アド バイ ザ デ ィ ス ク 


8.B ド ライ ブ プ に 「QB ワ ー ク ディ スク 」 を セッ ト し て 、 何 か キー を 押し ます 。 
する と 、Qu i ck BASIC の 「 ア ドバイ ザ デ ィ ス ク 」 か ら 必 要 な ファ 


イル が 「QB ワ ー ク ディ スク 」 へ 複写 され ます 。 


ee 
〇 。 アド バイ ザ デ ィ ス ク 
レス 目 
っ = 詳 
QB ワー ク デ ィ ス ク 
し へ 記 チ で | 便 


ー15 一 


9.A ド ライ ブ に 「 セ ッ ト ア ッ プ ディ スク | を セ モット し て 、 何 か キー を 押し ます 。 
する と 、Qu ick BASIC の 「 セ ッ ト ア ッ プ ディ スク 」 か ら 、 必 要 な 
ファ イル が 「QB ワ ー ク ディ スク 」 へ 複写 され ます 。 


O。 セッ ト ア ッ プ ディ スク 
ッ / 
に ー 
QB ワー ク デ ィ ス ク 
し へ 記 チ | $ 


10. 利 用 環境 を 作成 し ます 。 
何 か キ ー を 押し て か ら 、B ド ライ ブ に 「QB 起 動 デ ィ ス ク 」 を セッ ト し て 、 
再び 何 か キ ー を 押し ます 。 


(人 セッ ト ア ッ プ ディ スク 
し へい 詞 | 人 | 9 
目 
これ で 、Quick BAS1IC の 実行 用 ディ スク の 作成 は 終了 し まし た 。 


3③。 次 に メニ ュー の 2 を 選択 し て 、Quick BAS1IC の 概要 と 操作 方 法 の 説 
明 を 読ん で くだ さい 。 


QuickBASIC セッ ト ア ッ プ ユー ティ リティ 


率 玉 玉 玉 玉 玉 玉 玉 玉 玉 キ キー メニ ュー > キキ ギ 玉 玉 玉 来 玉 玉 玉 玉 来 来 玉 玉 来 来 玉 玉 玉 来 氷 杯 玉 玉 水玉 玉 


1. QuickBAS1IC の 利用 環境 を 作成 し ます 。 
2. QB の 概要 、 操 作 方 法 の 説明 を 行い ます 。 
3!。 セッ ト ア ッ プ を 終了 し ます 。 


キキ キキ キキ ネギ キキ キネ ネネ ネネ キネ キキ キネ 玉 主 キキ キキ キキ キネ キネ キネ キネ キネ キネ ネギ キネ 本 率 玉 キ 玉 


@ メ ニュ ー を 選択 し て くだ さい 。 





初め は Qu ick BAS1IC の 雰囲気 を 味わう 程度 で よい で し ょ う 。 こ こ に 


ii 


ーー と で 


説明 され て いる すべ べ て を 理解 で き な け れ ば 前 に 進め な いと いう も の で は あり ませ 
ん 。 初心 者 に 選 2 に 多数 の 専門 用 語 が わか ら な く で 当然 で す 。 気 に し な いで 
「 今 に わか る さ 。」 と いう 気持 ち で ご 覧 くだ さい 。 


4 。 新 し く 作 成 し た 実行 用 の フロ ッ ピ ー デ ィ ス ク の 内 容 は 次 の と お り で す 。 


1.QB 起 動 デ ィ ス ク 
IO.SYS MSDOS.SYS COMMAND.COM AUTOEXEC.BAT CONFIG.SYS 








BIN QB.EXE QB.INI BRUN45A.EXE LINK.EXE LIB.EXE BC.EXE 
MOUSE.COM 
LIB BQLB43.LIB QB.LIB QB.QLB BCOM45ALIB BRUN4S5A.LIB 


GEN.LIB GENQLB GRAPHLIB GRAPH.QLB MOUSE.LIB 
MOUSE.QLB 


2.0B ワ ー ク ディ スク 
INCLUDE 一 GEN.BI GRAPH.BI MOUSE.BI QB.BI GNCONST.BI 


WHCONST.BI 
SOURCE 一 - DEMO1.BAS な ど 
ADVR_EX CALL_EX.BAS な ど 
EXAMPLE GENDEMO1.BAS な ど 
BOOK CHAP210.BAS な ど 
ADVR 一 一 - QB45QCK.HLP QB45ENER.HLP QB45USER.HLP 
DOC 一 一 一 README.DOC SAMPLE.DOC 


3.0B ア ドバイ ザ デ ィ ス ク 
ーー ADVR 一 一 - QB4SQCK.HLP QB4SENER.HLP QB4SUSER.HLP 
HELPMAKE.EXE 


1. 3 日 本 語 を 使い まし ょ う 


漢字 や ひら か な を 使用 する に は 、 漢 字 の 変換 シス テム (日 本 語 フ ロン ト エ ンド プ 
ロ セ ッ サ ) を 組み 込む 必要 が あり ます 。 

PC9800 シ リー ズ 用 の Quick BAS1IC が 利用 で きる フロ ント エン ド 
プロ セッ 層 は 、MS 一 区 ANT1I 及 び ATOK6 で す 。 と こと で は ほ は ワー プロ ソラ フト の 
「 一 太郎 Ve r 3. 0」 に 組み 込ま れ て いる ATOK6 を 利用 する こと に し ます 。 


1。 「 一 太郎 」 の シス テム ディ スク を AF ドライブ に 、「QB ワ ー ク ディ スク 」| を B 


ドラ イブ に セッ ト し て 、COPY ATOK*.* B: と 入力 し て くだ さい 。ATOK6 に 
必要 な 辞書 な どの ファ イル が 「QB ワ ー ク ディ スク 」 へ 複写 され ます 。 


ン 


A>COPY ATOK*.* B: 
ATOK.DIC 


一 太郎 Ve r 3. 0 の 
シス テム ディ スク 


QB ワー ク デ ィ ス ク 


gl 


(| 


ATOK6A.SYS 
ATOK6B.SYS 
3 個 の ファ イル を コピ ビー しま した. 





2。 A ド ライ ブ へ QB 起動 ディ スク を セッ ト し 、 そ の CONFIG.SYS を 次 の よう に 書き 
直し ます 。 
エディ タ (画面 上 で デー タ を 編集 する ソフ ト ) を 使え ば 容易 に で きま す が 、 
な い 場 合 は 、A> の 画面 か ら 次 の よう に 入力 し て くだ さい 。 
改行 は 介 で す 。 ま た 、 最 後 の 行 の ^Z は ファ イル の 終了 の 記号 で [CTRL] と 
Z を 同時 に 押し て か ら 、 を 押し ます 。 


QB 起動 ディ スク 


や 


相生 


A>COPY CON CONFIG.SYS 
SHELL=A:\*COMMAND.COM A:\ /P 
FILES=20 

BUFFERS=10 
DEVICE=B:ATOK6A.SYS / エ =1 /D=B 
DEVICE=B:ATOK6B.SYS 
DEVICE=PRINT.SYS 

^ 選 


1 個 の ファ イル を コピ ー し まし た . 





さて 、 こ の CONFIG.SYS と は 何で し ょ う 。CONFIG は CONFIGURATION (構成 ) の 
略 で 、 ユ ー ザ ー が デバ イス ドラ イ バ な ど を 追加 設定 する た め の フ ァイル で す 。 

デバ イス と は 機器 と いう 意味 で 、 こ れ を 設定 する こと に よっ て 各種 の 機器 や 
漢字 変換 シス テム を 利用 で きる よう に な り ま す 。 

最後 の 行 に DEVICE=PRINT.SYS と いう 行 が あり まし た 。 こ れ は プリ ンタ ドラ イ 
バ の 設定 で 、 こ れ に よっ て プリ ンタ を 利用 で きる よう に な り ま す 。 

PRINT.SYS は MS 一 DOS の シス テム ディ スク に ある の で 、 そ れ を 複写 し ま 
す 。 也 ドラ イブ プ へ MS 一 DO の S の シス テム ディ スク を モッ ト し 。A ド ダイ プ ヘ 
QB 起動 ディス ク を セッ ト し て 、COPY B:PRINT.SYS A: と 入力 し て | 林 | を 押し 
ます 。 す る と 、QB 起 動 デ ィ ス ク へ PRINT.SYS が 複写 され ます 。 

これ で 完成 で す 。 


lQB | 
の | QB 起動 ディク 
ググ 
em MS 一 DOS シス テム ディ ス 
ーー、 対 |ー ら ) の ジス ゲ ィ ス ク 


A>COPY B:PRINT.SYS A: 


1 個 の グ ァ ゴ イル を コビー し レル ま し 訪 、 





ー19 ー 


1. 4 ハー ド デ ィ スク で 使う 


Quick BASIC は 、 ハ ー ド ディ スク に 組み 込ん で 使用 する の が 、 最 も 快 
適 で す 。 

実行 用 の Qu ick BASIC を ハー ド デ ィ スク へ ヘ へ インストール する 手順 は 次 
の と お り で す 。 


1 。 まず 、 ハー ド デ ィ スク か ら 起 動 し ます 。 
する あと も と 、 パ カー ド デ ィ スク が A ドジ イブ プ 。 ツ ロッ ゼー ディ スク グ が BB ラオ アデ と 
ドラ イダ ザジ に か なり ま げす 。 


2。B ド ライ ブ に Qu ick BASIC の 「 セ ッ ト ア ッ プ ディ スク 」 を セッ ト し 
て 、B: と 入力 し て |4J| を 押し 、 次 に SETUP と 入力 し て |4J| を 押し ます 。 
する と 、 フ ロッ ピー ディ スク へ の イン スト ー ル の 場合 と 同様 の メッ セー ジ が 
画面 へ 表示 され ま す 。 あ と は 画面 の 指示 に 従っ て 、Quick BASIC の 
「 プ グラム ディ スク 」| 、「 タ イブ ラリ ディス ク 」 。「 ア ドバイ ザ ア ィ スク 」 
か ら ハ ー ド ディ スク に 必要 な ファ イル を 複写 し て くだ さい 。 普通 は 、 あ ら か じ 
め 用 意 さ きれ て いる メニ ュー 選択 の まま |J| を 押し て いけ ば よい よう で す 。 


セッ ト ア テッ プ デ ィ ス ク 
@ 
四 





ハー ド デ ィ スク へ ヘ へ インス トール され る 


第 人 @ 章 
楽し い 入 門 


ィ ッ クス を 楽し みな が ら QB の 基本 
グラ フィ 。 
を 学び ます 。 。 。 ーー 








2. 1 Quick BASIC の 起動 





いよ いよ 、Quick BASIC を 始め まし ょ う 。 「QB 起 動 デ ィ ス ク 」 、 
「QB ワ ー ク ディ スク |] 及び 「QB ア ドバイ ザ デ ィ ス ク 」| を 用 意 し て くだ さい 。 


1。 電源 スイ ッ チ を 押し て ON に し ます 。 


2。A ド ライ ブ に 「QB 起 動 デ ィ ス ク 」] を 、B ド ライ ブ に 「QB ワ ー ク ディ スク 」 
を セッ ト し ます 。 


了 本 
記 計 グー QB ワー ク デ ィ ス ク 


3。 リ セッ ト ボ タン を 押し ます 。 


4。 画面 に 表示 し な が ら 起 動 処理 が 行わ れん 、 そ れ が 停止 し た ら QB と 入力 し て [ 委 | 
を 押し ます 。 


A>PATH=A:\BIN 

A>SET LIB=A:\YLIB 

A>SET INCLUDE=B:\INCLUDE 
A>SET TMP=B:\ 

A>MOUSE 


ー- Installing IMticrosoft N1OUSE Device Driver vG.00 --- 
A>QB 





5、Quick BASIC の 統合 環境 の 画面 が 現れ 、 こ こと から プロ グラ ム を 入力 
で きま す 。 
HELP 画 面 な ら ば 、[ESC] を 押す と 消え ます 。 


Quick BASIC は 従前 の BAS TIC と 異な っ て 、 一 つの 画面 か ら 編集 、 


実行 、 コ ン パ イル 、 デ バッ グ な ど 、 ソ フト 開発 の た め の 作 業 を 効率 的 に 行う こと が 
で きる よう に な っ て いま す 。 こ の よう な 開発 環境 を 、 統 合 環境 と いっ て いま す 。 


29。 2 だ っ な 1 和 有 の プロ グラ テム 


いよ いよ 、 プ ログ ラム の 入力 で す 。 
LINE(0.0)-(100,10O),4,B 【 旨 | と 入力 し て くだ さい 。 こ こ で 最後 に 【 条 | を 押す と 、 適 
切な 位置 に スペ ー ス が 挿入 され て 、 次 の よう に 画面 に 表示 され ます 。 


LINE (0, O)-(100, 100), 4, B 


これ で プロ グラ ム の 入力 が 終り まし た 。 す で ぐに 、 実 行 で きま す 。 


プロ グラ ム の 実行 は 、 と [f ・5| を 同時 に 押す と 開始 きれ ます 。 
正方 形 が 描け た で し ょ う 。 

今日 は 、 あ な た が 生ま れ て 初め て Qu i ck BASIC の プロ グラ ム を 入力 し 
て 実行 し た 記念 日 で す 。 


さて 、 正 方 形 は 描け た の で す が 、 画 面 上 で 他 の 文字 と 重なっ て いま す 。 そこ で 、 
画面 上 の 文字 な ど を 消去 し て か ら 、 正 方 形 を 描く こと に し ます 。 

その 方 法 は CLS を LINE の 前 の 行 に 挿入 す る だ け で す 。 カーソル を LINE の L に 合わ せ 
て 、CLS【J| を 押し て くだ さい 。 


CLS 


LINE (0, O ひ )-(100, 100), 4,B 





も う 一 度 実行 し て くだ さい 。 今度 は 、 文 字 が 消え て 赤い 正方 形 が 描か れ た で し ょ 
。 


CLS は 、CLear Screen の 略 で 、 画 面 を 消去 する コマ ンド で す 。 
LINE・・‥ は 、LINE‥・.B の 組み で 、Box ( 箱 ) の 形 に LINE を 描き な さい と いう 意味 


3 
(0, O)-(100, 100) は 、 正 方 形 の 向い 合う 頂点 の 画面 上 の 物理 的 な 位置 を 座標 と し 


て 表 し た も の で す 。 
4 は 、 色 番号 で 赤 の こと で す 。 (0.0)-^、 


LINE (0, 0)-(100, 100), 4,B 


1 第 
線 赤 BOX= 箱 - (100,100) 


ー 2 の 3 一 








2. 3 色 は いろ いろ 





4 は 色 番 号 で 赤 を 指し て いま す が 、 ほ か に は どの よう な 色 を 使う こと が で きる の で 
し ょ 邊 が か 。 


LINE (0. 0)-C100、_100)。 4。B の 中 の 4 を 、 い ろ い ろ な 数 値 に 取り 替え て 実行 し て 
くだ さい 。 


4 を 削除 する に は 、 矢 印 キ ー ま た は マウ ス で カー ソル を 4 に 合わ せ て か ら 、 [DEL 
を 押し て くだ さい 。 


色 の 番号 は 次 の と お り で す 。 


ささ ひい ひい の ょ らい ピー の 
正吾 六 党 党 苑 連 舞 


Quick BAS 1IC で は 、 色 番号 は 0 か ら 7 ま で で す が 、 そ れ 以 上 の 数 値 で も 
エラ ー に な ら な いで 作動 する よう に な っ て いま す 。 
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2. 4 小さ な 箱 や 大 き な 箱 


(0,0)-C100.100) は 、 長 方 形 の 向い 合う 頂点 の 座標 を 表し て いま す 。 こ の 数 値 を 変 
更 す る と 、 小 さい 箱 や 大 きい 箱 (大 小さ きま ざ まな 正方 形 や 長方形 ) を 描く こと が で 
きま す 。 

次 の 下線 の 部 分 へ 、 い ろ い ろ な 数 値 を 入れ て 実行 し て くだ さい 。 


LINE( こう -( AKA Os ーー / B 


[INS| は 、「 上 書き モー ド 」 と 「 挿 入 モ ー ド 」 を 切り 替え ます 。 

上 書き モー ド で は 、 修 正 し た い 文 字 の 上 へ カー ソル を お いて 入力 する と 、 上 書き 
され て 、 修 正 前 の 文字 が 消さ れ ま す 。 

また 挿入 モー ド で は 、 も と の 文字 は 消さ きれ な いで 入力 し た 文字 が カー ソル の 位置 
へ 挿入 され ます 。 通常 は 挿入 モー ド の 方 が 使い よい よう で す 。 


数 値 を 置き 換え る こと に よっ て 、 次 の こと に 気付 か れ た こと で し ょ う 。 


1 。 長 方 形 の 向い 合う 頂点 の 組み 合せ は 、 左 上 と 右 下 の 組 で も 、 左 下 と 右上 の 組 
で も か まい ませ ん 。 


2 2 湖 ま 左下 と 右上 
ヽ 
②0.0) G00.150 20.150) 2②00,50) 
グ * 


LINE (20, $0)-(200, 150), 4, B LINE (20, 1S0)-(200, 50), 4, B 


2。 座標 の 数 値 は せ 、 マ イナ ス で も 画面 より 大 きく て も エラ ー に な り ま せん が 、 画 面 
に 描か れる の は 、 横 方 向 に 0 か ら 639 ま で 、 縦 方 向 に 0 か ら 399 ま で で す 。 
0 639 





(639.0) 


(0,399) (639,399) 
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2. 5 複写 で 箱 の 芸術 


LINE ス テー トメ ント で いろ いろ な 箱 を 描い て 、「 箱 を 主題 と する コン ビュ ー タ グ 
ラフ ィ ッ クス 」 を 創作 し ます 。 


ーー デー 


この よう な プロ グラ ム を つく る に は 、LINE ス テー トメ ント を 何 回 も 繰り 返し て 入 
力 する 必要 が あり ます 。 そ こ で 、LINE を 複写 し て 数 値 の み を 書き 換え る こと に よっ 
て 比較 的 楽に 入力 する こと が で きま す 。 


複写 する 方 法 は 次 の と お り で す 。 
1 。 視 写す る 範囲 を 指定 し ます 。 
複写 を 開始 する 行 に マウ スカ ー ソ ル を 合わ せ て 、 マ ウス の 左 ボ タン を 押し た 
まま 終了 行 ま で 移動 する と 、 要 写 元 の 範囲 の 行 が 反転 し て 表示 され ます 。 
マウ ス を 使わ な い 場 合 は 、 複 写 開始 行 に カー ソル を 合わ せ て 、 複 写 終 了 行 ま 
で を 押し な が ら 矢 印 キ ー を 押し て いく と 、 複 写 元 の 範囲 の 行 が 反転 し 
て 表示 され ます 。 
2。 バッ ファ ー に 複写 元 の 内 容 を 読み 込ん で 記憶 し ます 。 
を 押し な が ら [INS| を 押し ます 。 
3。 バッ ファ ー に 記憶 され た 複写 内 容 を 複写 先 の 位置 へ 貼り 付け ます 。 
複写 先 の 開始 位置 へ カー ソル を 合わ せ て 、[SHIFT| を 押し な が ら INS] を 押し 
ます 。 貼り 付け が 終っ て も バッ ファ ー に 記憶 し た 内 容 は その まま で すか ら 、 何 
度 も 繰り 返し て 貼り 付け る こと が で きま す 。 


CLS 
LINE(0, 0)-(100, 100), 4 B 
LINE(20, S20)-(1200, 10). $, B 


LINE(180, 2SO)-C152。S10), 6, B 
LINE(-10, -S0O)-(400, 300), 3, B 
LINE(300, 30)-(380, 370),。 2, B 
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2. 6 プロ グラ ム の 保存 


苦心 し て 創作 し た 「 箱 の 芸術 | の プロ グラ ム も 、 電 源 を 切る と 即座 に 消え て し ま 
いま す 。 
そこ で 、 プ ログ ラム を フロ ッ ピ ー デ ィ ス ク へ 保存 し ます 。 


1 。 保 存する フロ ッッ ピー ディス ク を B ド ライ ブ ヘ セット し ます 。 
この フロ ッッ ピー ディス ク は フォ ー マ ッ ト 済 み の も の で す 。 「QB ワ ー ク ディ 
スク 」 に 保存 し て も 差し 支え を あり ませ ん が 、 残 り の 容量 が あま り 多 く は な い の 
で すぐ に ディ スク が いっ ぱい に な っ て し まい ます 。 


四 2 
に 寺 了 QB ワー ク デ ィ ス ク 
保存 用 の フロ ッ ピ ー デ ィ ス ク 


画面 左上 の [F/ フ ァイル ] に マウ スカ ー ソ ル を 合わ せ て 、 左 クリ ッ ク し ます 。 
左 ク リッ ク と は 、 マ ウス の 左 ボ タン を 押す こと で す 。 
マウ ス を 使用 し な いと き は 、[GRPH| を 押し て か ら F を 押し て 【[F/ フ ァイル ] 
を 選択 ます 。 
する と 、 [FE/ フ ァイル ] の メニ ュー が 表示 され ます 。 
3。 [F/ フ ァイル ] の メニ ュー の [A/ 名 前 を 変え て 保存 ] を 左 ク リッ ク し ます 。 
マウ ゥ ス を 使用 し な い 場 合 は 、A を 押し ます 。 
4。 [A/ 名 前 を 変え て 保存 ] の メニ ュー が 表示 され 、 「 フ ァイル 名 を 設定 し て く 
だ さい 」 と 指示 され る の で 、 例 えば B:QB2_5 と 入力 し ます 。 
B: は B ド ライ ブ と いう こと で す 。 QB2_5 は プロ グラ ム 名 で 第 2 章 の 5 節 の 例題 
と いう こと が わか る よう な 名 前 に し まし た 。 プロ グラ ム 名 は 、 英 数 字 8 文字 ま 
で の 範囲 内 で 作者 が 自由 に 付け る こと が で きま す 。 










前 を 変え て 保 
F/ フ 7 侯 EE/ 編 集 VW 表 示 フイ 人 生 を る たる 
N 旨 ii 






0 ル 凍 を 変え て 保 在 。. 





(や ) 0/ ) SN 
林 モ 2 ァイル 


( ) T パ テキ スト ファ イル 


人 2 


P/EI 謝 
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2. 7 Quick BASIC の 終了 
Quick BAS 1IC の 終了 は 次 の 手順 で 行い ます 。 


1。 [E/27 化 | を 左 ク リッ ク し ます 。 あるいは [GRPH|] を 押し て F を 押し ます 。 
する と 、 [FE/ フ 7 化 の メニ ュー が 表示 きれ ます 。 


F/ フ 7 化  E/ 編 集 V/ 表 示 


vg 
用 前 を 次 えて 保存 


2。 [XX/ 終 了 ] を 左 ク リッ ク し ます 。 あ る い は X を 押し ます 。 
ファ イル が 保存 きれ て いな い 場 合 は 、 確 認 の メニ ュー が 表示 され ます 。 


ファ イル は まだ 保存 され て いま せん . 保存 し ます か ? 





<Y/ は い > <N/ い いえ > < 取消 > <HI ヘ ルプ > 





3 。 現在 編集 中 の プロ グラ ム を 保存 する 場合 は [Y/ は い ] を 、 保 存 し な い 場 合 は 
[N/ い いえ ぇ ] を 左 ク リッ ク し ます 。 あ る い は Y ま た は N を 押し ます 。 
保存 する 場合 は 、 保 存 の メニ ュー 画面 が 表示 され る の で 、 保 存 し ます 。 
保存 し な い 場 合 は 、 直 ち に 終了 し 、 取 消 の 場合 は 、 編 集 画 面 に 戻り ます 。 


4。Quick BASIC の 編集 画面 が 消 を えて MS 一 DOS レベ ル の 画面 が 表示 
され だ た だら 、 フ ロッ ピー ディ スク を 取り 出し ます 。 


5。 電源 を 切り ます 。 





2. 8 プロ グラ ム の 読み 込み 
フロ ッ ピ ー デ ィ ス ク に 保存 し て ある プロ グラ ム を 読み 込む 手順 は 次 の と お り で す 。 


1。 プロ グラ ム を 保存 し て ある フロ ッ ピ ー デ ィ ス ク を B ド ライ ブ に セッ ト し ます 。 


[es _] _- 
( QB 起動 ディ スク 
の 
sp に プロ グラ ム を 保存 し て ある 


2。 [F/ フ 7 化 | を 左 ク リッ ク し ます 。 あるいは [GRPH] を 押し て F を 押し ます 。 
する と 、 [E/ フ 7 イ 人 の メニ ュー が 表示 され ます 。 


3。 [O/ 読 込 ] を 左 ク リッ ク し ます 。 あ る い は O を 押し ます 。 
する と 、 [O/ 読 込 】] の メニ ュー が 表示 きれ ます 。 

隊 0/ 読 込 

F/ フ 7 化 E/ 編 集 V/ 表 示 ファ イル 名 を 設定 し て くだ さい . 


NM フ ァイル 名 [ーー | 
A\ 


F/ フ ァイル D/ デ ィ レ クト リ 


[- 信 -] 
[-B-] 


4。 [D/ デ ィ レ クト リ ] の 欄 の [-B-] を 左 ダ ブル クリ ッ ク し ます 。 
ダブ プ ブルク リック は 、 マ ウス の ボタ ン を 2 度 続 け て 押す こと で す 。 カ チカ チ と 
素早 く 押 し て くだ さい 。 
マウ ゥ ス を 使用 し な い 場 合 は 、 を 押し て カー ソル を 【[D/ デ ィ レ クト リ ] 
の 欄 へ 移動 し 、 矢 印 キ ー を 押し て [-B-] を 反転 きせ て 【 旨 | を 押し ます 。 
する と 、[F/ フ ァイル ] の 欄 に B ド ライ ブ に 保存 きれ て いる プロ グラ ム の 名 
前 の 一 覧 が 表示 され ます 。 










9 
ん 名 前 を 変え て 保存 .… 


P/EI 順 





5。 [F/ フ ァイル ] の 欄 に 表示 され て いる プロ グラ ム 名 一 覧 の 中 か ら 、 読 み 込む プ 
ログ ラム 名 を 左 ダ ブル クリ ッ ク し ます 。 マ ウス を 使用 し な い 場 合 は 、 [TAB| と 
矢印 キー で プロ グラ ム を 選択 し て 【 旨 | を 押し ます 。 

する と 、 指 定 し た プロ グラ ム が 読み 込ま れ て 、 編 集 画面 に 戻り ます 。 
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2. 9 箱 に 色 を 塗り まし ょ う 





正方 形 や 長方形 な どい ろ い ろ な 箱 を 描い て 、 箱 の 芸術 が で きま し た か ? 
これ まで の 箱 で は 、 箱 の 中 が 黒色 で し た 。 そ こ で 、 中 に 色 を 塗る こと に し ます 。 


箱 に 色 を 塗る に は 、LINE ス テー トメ ント の B に FE を 加え て 、BF と すれ ば よい の で す 。 


LINE (10, 20)-(150, 350), 4, BF 


F は 、 満 た す と いう 意味 の FILL か らき て いま す 。 BOX の B と 合わ せ て 、BF は 箱 の 中 
を 満た す と いう こと で す 。 


どう ぞ 、LINE ス テー トメ ント の B 及 び BF を 使用 し て 、「 箱 の 芸術 作品 ] を 作っ て く 
だ さい 。 


作例 


CLS 

LINE (20, 10)-(200, 100), 4, B 
LINE (-200, 110)-(②50, -100), 3, BF 
LINE (120, 1S6)-(600, 390), 6, BEF 
LINE (220, 10)-(100, 370), 7, BEF 
LINE (280, 210)-(630, 375), 1, BEF 


LINE (150, 30)-(225, 340), 2 BF 
LINE (420, 10)-(S40, 291), 3 BF 
LINE (482, 50)-(620, 350), 4 B 
LINE (330, 130)-(230, 400), S, B 
LINE (20, 10)-(200, 100), 6, B 

LINE (220, 1S0)-(320, 460), S, B 





2. 10 4 行 で 1 00 個 の 箱 を 描く 


次 の プロ グラ ム は 、 ど の よう な 図 を 描く と 思い ます か 。 


。 1)。1。 B 
ぅ つう )。 2, B 
3), 3,。B 


0)-(97, 97), 97, B 
0)-(98, 98), 98, B 
0)-(99, 99), 99, B 
O)-(100, 100), 100, B 





この プロ グラ ム は 、 箱 の 左上 の 頂点 は 0.0) で 右 下 の 頂 点 が (1.1) か ら (100,100) 
まで 変化 し て 、 1 0 0 個 の 箱 を 描き ます 。 


と ころ が 、Quick BAS IIC に は 便利 な 道具 が あっ て 、 上 の 1 0 1 行 も の 
プロ グラ ム を だ っ た 4 行 で 書く こと が で きま す 。 


CLS 
FOR I = 1 TO100 

LINE (0, O)-, D, 1, B 
NEXT I 





この 道具 は 、FOR と NEXT と 間 の プロ グラ ム を 、I を 変化 させ な が ら 繰 り 返 し 実行 す 
る 仕掛 け で す 。 


FOR I = 1 TO100 
(を 1 か ら 100 ま で 変化 きせ な が ら 


1 0 0 回 繰り 返す ) 
NEXT I 
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実行 の 経過 を 詳し く 示 す と 、 次 の よう に な り ま す 。 


1 回 目 テ 1 で 実行 0)-(1。 1), 1, B 
2 回 目 1=2 で 実行 0)-(2, 2)。 2, B 
3 回 目 1=3 で 実行 0)-(3,。 3), 3, B 
4 回 目 =4 で 実行 0)-(4。 ④, 4, B 


(中 間 を 省略 ) 
9 7 回 目 1=97 で 実行 O)-(《⑨7, 97), 97, B 
9 8 回 目 I=98 で 実行 O)-(⑨8, 98), 98, B 
9 9 回 目 I=99 で 実行 O)-(⑨9, 99), 99, B 
100 回 目 1=100 で 実行 0)-C100, 100), 100, B 





と ころ で 、 こ の プロ グラ ム の 中 で 使用 し て いる I (アイ ) と は 何で し ょ う 。 

I は 、 数 値 を 記憶 する 容器 の よう な も の で す 。 

FOR.….NEXT は 、I と いう 名 前 の 容器 に 1 か ら 100 ま で の 数 値 を 順に 入れ て 、 そ の 1 
の 内 容 を 使っ て LTNE.…. を 繰り 返し 実行 きせ て いる の で す 。 

I の よう に 数 値 を 入れ て 使用 する 容器 の よう な も の を 、「 変 数 ] と いい ます 。 し か 
し 、「 変 数 ] と いっ て も 数 学 で いう 「 変 数 ] と は 異 り ます 。 ま た 、 変 数 に も いろ い 
ろ な 種類 が ある の で す が 、 こ の こと は あと で 説明 し ます 。 


き て 、 変 数 の 名 前 は I (アイ ) だ け な の で し ょ うか 。 

変数 の 名 前 は 、 プ ログ ラム を 作る と き に よく 考え て 、 わ か りや すい よう に 付け ま 
す 。 変 数 名 を 上 手 に 付け な いと 、 プ ログ ラム を 修正 し た り エ ラー を 発見 する 場合 に 、 
た い へ ん な 難儀 を する こと も あり ます 。 特に 複数 の 担当 者 が 共同 開発 する 場合 は 、 
変数 名 の 付け 方 に つい て 、 共 通 理 解 が 必要 に な り ま す 。 


FORI =1 10100 LINE (0, 0)-(, D, 1, B 


グ 
Ni 
ーー 





数 値 を つく る 9 ーーー 9 I を 利用 する 
Se こす 
99 99 
100 に ペ 100 


2. 1 1 等 間隔 の 数 値 を つく る 


次 の プロ グラ ム を 読ん で くだ さい 。 


O)-(10, 10), 10, 
O)-(20, 20), 20, 
O)-(30, 30), 30, 
O)-(40, 40), 40, 


O)-(S0, 50), 30, 
O)-(60, 60), 60, 
O)-(70, 70), 70, 
0O)-(80, 8O), 80, 
O)-(90, 90), 90, 
O)-(100, 100), 100, B 


の の ピロ ウ ピピ の ロウ の ウ の 





箱 の 頂点 の 位置 が 10.20,30,40,50,60,70.80.90.100 と いう よう に 、10 ず つっ 増 加 し 
で ゆい る と と に 気付 く で し ょ ゅ ょ う 。 
この プロ グラ ム を 、FOR.……NEXT を 利用 し て 書く と 次 の よう に な り ま す 。 


CLS 
FOR I = 1 TO100 STEP 10 


LINE (0, O)-G, 1, I, B 
NEXT 1I 





FOR I = 1 TO100 STEP 10 は 、I は 10 か ら 100 ま で 10 の 間隔 で 増加 し な が ら 繰 り 返 
す と いう こと で す 。 
STEP は 、 増 加 、 減 少 の 間隔 を 表し て お り 、 プ ラス の 数 値 な ら ば 増加 、 マ イナ ス の 
数 値 な ら ば 減少 し ます 。 
例 FOR A = $ TO 200 STEP 4 
A は 、$ か ら 100 ま で 4 の 間隔 で 増加 し て 繰り 返し ます 。 
FOR B = 80 TO -130 STEP -$ 
B は 、80 か ら -1S0 ま で 3$ の 間隔 で 減少 し て 繰り 返し ます 。 
上 の プロ グラ ム の うち 、FOR 1 = 1 TO100 STEP 10 の 下線 の 部 分 を 、 い ろ い ろ な 
数 値 に 取り 替え て 実行 し て くだ さい 。 
STEP の 数 値 が 大 きい 場合 と 小さ い 場 合 と で は 、 ど の よう に 画面 の 箱 の 様子 が 変 
わる で し ょ うか 。 


2. 12 も っ と 結 模 様 を 


箱 を 重ね て 描く こと に よっ て 、 結 模様 が で きま し た 。 そこで 今度 は 、 結 模様 を 画 
面 の 他 の 位置 に も 多数 反 く よ う に し ます 。 そ の た め に は 、 箱 の 左上 の 頂点 の 位置 を 
変化 さき せれ ば よい の で す 。 


*QB2_12_1 
CLS 
FOR I =0TO100 
LINE (0, O ひ )-G。 D, 1 B 
NEXT I 
FOR I = SOTO1S0 
LTNE 〈$0, SO)-, DD, 1, B 


NEXT I 
FOR I =100 TO200 

LINE (100, 100)-, D, 1, B 
NEXT I 
FOR I =130 TO250 

LINE (1S0, 130)-, D, 1, B 
NEXT I 





*?QB2_12 1 は 、 こ の プロ グラ ム の 名 前 で す 。 わ か りや すい よう に 章 と 節 の 番号 を 
使い まし た 。 先頭 に * が あり ます が 、 こ れ は この 行 が 注釈 行 (説明 の た め の 部 分 ) 
で ある こと を 示し て いま す 。_ は 、 ア ンダ ー ス コア (下線 ) と いい ます 。 コ ボル で 
は - (マイ ナス 、 ハ イフ ン ) を 使う こと が 多い よう で す が 、BAS IC や C こ 言語 で 
は アン ダー スコ ア の 方 が 使い や すい よう で す 。 


1 。 箱 の 左上 の 頂点 の 位置 の 変化 に 注目 し て くだ さい 。 
(0,0) 、($0.S0)、(100.100)、(130,1S0) と 、S0 問 隔 で 変化 し て いま す 。 そこ 
で 、 こ の 変化 する 数 値 を J と いう 名 前 の 変数 に 入れ て 使う こと に し ます 。 


FORJ =O TO 1S0 STEP 50 


NEXT J 





2 。 FOR 1 =.…NEXT 1 が 4 組 あ り ま す 。 
開始 の 値 が 、0.S0,100.150 と 0 か ら 150 ま で 50 ず つっ 増加 し て いま す 。 こ れ は 
J の 変化 と 同 じ で す 。 終り の 値 は 開始 の 値 に 100 を 加え た 数 に な っ て いま す 。 
すなわち 、JH100 と いう こと で す 。 そこ で 、 次 の よう に か く こ と が で きま す 。 


FOR IT = ニ J TOJ+100 


NEXT I 





3。 最 後に 、1. の 中 に 2. を 組み 込む と 次 の よう に な り ま す 。 


*QB2_12_2 
FOR 』 = O TO130 STEP 50 
FOR I =J 了 TOJ+100 
LINE ①, の -Q。 D, 1,。 B 
NEXT I 
NEXT 





この よう に 、FOR.…….NEXT の 中 に FOR.…NEXT が 入る 形 を 「 入 れ 子 」 と いい ます 。 


入れ 子 の プロ グラ ム を つく る こと に よっ て 、LINE の 中 の 数 値 を いろ いろ に 変化 さき 
せる こと が で きま し た 。 


次 の プロ グラ ム の 下線 の 部 分 の 数 値 を 書き 換え て 、 結 模様 の プロ グラ ム を つく っ 
て くだ さい 。 


"QB2_12_3 


FOR J = 0Q TO_130 STEP_50 
FOR I =J TOJ+100 


LINE (JJ。 の -G。 D, 1。B 
NEXT I 
NEXT 了 





ー 35 ーー 


2. 13 大 か ら 小 へ の 変化 
これ まで は 、 最 初 は 小さ い 箱 を 描き 、 次 第 に 大 きい 箱 を 繰り 返し 描い て 結 模 様 を 
つく り ま し た 。 今度 は 、 最 初 に 大 きい 箱 を 描き 、 次 第 に 小さ い 箱 を 繰り 返し 描い て 
結 模 様 を つく る こと に し ます 。 


次 第 に 大 きく する 場合 の 例 
FOR I =0 TO100STEP $ I は 0 か ら 100 ま で 5 ずつ 増加 し ます 。 


次 第 に 小さ くす る 場合 の 例 
FOR I = 100 TO 0 STEP -$ I は 100 か ら 0 ま で 5 ずつ 減少 し ます 。 


増加 の プロ グラ ム の 例 減少 の プロ グラ ム の 例 


0)-(0,。 ひ ), 0, B 
0)-($ う , 5), 5, B 
0)-(10, 10), 10, B 


O)-(100, 100), 100, B 
0)-(95, 95), 95, B 
O)-(80, 80), 80, B 


0)-(15, 15)。 1S, B 0O)-(85, 8S5), 8S5, B 


O)-(S, う ), 5, B 
0)-(0, ひ ), 0, B 


O)-(95, 95),。 9S5, 
O)-(100, 100), 100, B 





[FOR.…NEXT を 使う 増加 ] [FOR.…NEXT を 使う 減少 ] 


CLS 
FOR I = 0O TO 100 STEP 5 FOR 1 = 100 TO 0_STEP -5 


LINE (0, O)-G.。 . 1. B LINE 0, O)-G, D, 1. B 
NEXT I NEXT I 





上 の プロ グラ ム を 実行 し て くだ さい 。 よく 見 る と 違う 部 分 が あり ます が 、 ほ と ん 
ど 同 じ 結果 に な っ て いま す 。 と ころ が 、LINE.… ぼ … の 最後 の B を BF に 替え て 実行 す る 
と 、 ま っ た く 違 う 結 果 に な り ま す 。 

そこ で 、QB2_12 2 の プロ グラ ム を 次 の よう に 書き 直し て 、 少 し 幅 の 広い 結 模 様 に 
し まず す 。 


1 。 大 の 箱 を 先 に 小 の 箱 を 後に 描く よう に し ます 。 
TO エエ 100 を エ 土 100 TOJ と し ます 。 


2。 5 ずつ 小さ い 箱 を 描く よう に し ます 。 
STEP -S を 加え ます 。 


3。 B を BF へ 描き な お し ます 。 


改造 前 の プロ グラ ム 


*OB2_12. 2 
CLS 
FOR J = O TO 130 STEP SO 


FOR I = ニ J TOJ+ 100 
LINE (JJ )-G。 , 1 B 
NEXT I 
NEXT J 





改造 後 の プ ログ ラム 


*QB2_13_1 
CLS 
FOR J = 0 TO130 STEP 30 


FOR I = J + 100 TO J STEP -$ 
LINE ①, -Q, DD, 1..BE 
NEXT I 
NEXT J 





2. 14 キー ボー ド か ら の 入力 


これ まで 描い た 模様 は 、 画 面 の 左上 すみ か ら 斜 め に 表示 され て いま す 。 
そこ で 、 模 様 を 描く 位置 を 全体 に 200 だ け 右 に 移動 し た いと き は 、 横 座標 の 数 値 
だ け を 200 ず つ 増 や し て 、①+200, と (IT+200,.)) と すれ ば よい の で す 。 


YOB2_14 1 
CLS 
FOR 』 = O TO 1S0 STEP 0 


FOR 1 = ニ ゴ 了 本 100 TO J STEP -$ 
LINE (J + 200、 の = + 200 し DD。 IT ,BF 
NEXT I 
NEXT J 





次 に 、 結 模様 を 描く 位置 を 、 キ ー ボ ー ド か ら 入 力 し て 表示 する よう に 改造 し た い 
と 思い ます 。 キ ー ボ ー ド か ら 入 力 す れ ば 、 プ ログ ラム を 書き な お さ な い で 表示 する 
位置 を 変え る こと が で きま す 。 


"QB2_14 2 
CLS 

INPUT "TTI=":TTI 

FOR J = O TO1S0 STEP 0 


FORI = ニ J+100 TO J STEP -$ 
LINE (J + TTIL の: + TITT DD。 1 ,BF 
NEXT 1 
NEXT J 了 





INPUT は 、 キ ー ボ ー ド か ら デ ー タ を 入力 する ステ ー ト メン ト で す 。 

INPUT の 後ろ の "TTT=" は 、 画 面 上 に これ か ら 何 を 入力 する か を 案内 する 言葉 で す 。 
これ が な いと パソ ンコ ン を 使う 人 が 、 次 に 何 を し た ら よ いか 分 ら な く な っ て し まう の 
で す 。 で すか ら 、" 人 行 ヲ 槍 ガ イス" で も 、" 位 置 を 入力 し て くだ さい -->" で も よい 
の で ぞ で す 。 

位置 の デー タ を 入れ る 変数 の 名 を ITI と し まし た 。INPUT ス テー トメ ント の 最後 の 
ITI は 、 キ ー ボ ー ド で 入力 し た 数 を TITI と いう 変数 に 入れ る こと で す 。 

これ を 実行 する と 、 画 面 に TTI= と 表示 され ます 。 こ と ここ で キー ボー ド か ら 200 
と 入力 し ます 。 す る と 、ITI と いう 変数 に 200 が 入り ます 。 


以後 は 、 容 器 の ITTI を プログ ラム の 中 で 使え る の で す 。 TITI へ 入力 する 数 は 、300 で 
も 400 で も まだ た -100 で も よい の で す 。 いろいろ 繰り 返し て 実行 し て くだ さい 。 


で は 次 に 、 ど の よう な 幅 の 結 模 様 が よい か を 試行 する た め に 、 結 の 幅 を キー ボー 
ド か ら 入 力 す る プロ グラ ム を 作り まし ょ う 。 


*QB2_14_3 
CLS 

INPUT "HABA=":HABA 

FOR 』 = O TO 130 STEP 50 


FOR I = 了 + 100 TO 了 STEP HABA 
LINE ①。 -Q, DD, I ,BF 
NEXT I 
NEXT 了 





変数 HABA の 数 値 が マイ ナス に な っ て いな けれ ば 画面 に は 何 も 表 示さ れ ま せん 。 つ 
ね に マイ ナス の 入力 を 求め る の で は 不便 な の で 、 

FOR 1 = 了 + 100 TO STEP HABA * -1 
と 改造 し キ ます 。 つ ね に -1 を 掛け る の で 、 プ ラス の 値 を 入力 すれ ば STEP の 値 は マイ ナ 
ス に な り ま す 。 


さら に 、 プ ラス で も マイ ナス で も 必ず マイ ナス の 数 に する た め に 、 次 の よう に 改 
造 し ます 。 


*QB2_14_4 
CLS 

INPUT "HABA=":HABA 

IF HABA > O THEN HABA = HABA \ -1 


FOR J = O TO 1S0 STEP S0 
FOR I ニ ゴ 」+ 100 TO J STEP HABA 
LINE (J, J-G。 1), I ,BF 
NEXT I 
NEXT J 





TE HABA>.0 THEN HABA=HABA*-1 は 、 も し も 、HABA が プラ ス (0 ょ より 大 ) な 
ら ば 、HABA へ -1 を 掛け た 結果 を HABA へ 入れ ます 。 プラ ス の 時 だ け -1 を 掛け る の で 、 


HABA は 、 い つも マイ ナス に な り ま す 。 





2. 15 画面 いっ ぱい に 描こ う 





これ まで 箱 で つく っ た 結 模 様 の テス ト を 繰り 返し て きま し た が 、 今 度 は 画面 いっ 
ぱい に 描く プロ グラ ム を つく り ま し ょ う 。 


ここ に は 、 ひ と つの プロ グラ ム の 例 を 示し ます 。 


"QB2_15_1 
CLS 
FOR TTI = -400 TO 6OO STEP 100 


FOR J = O TO 330 STEP S0 


FOR IT = ニ 」+ 了 100 TO J STEP -$ 
LINE (J + TTT。 の = + TITT。T)」。 IT ,BF 
NEXT I 
NEXT J 
NEXT ITI 





画面 の 外 に まで 描い て いる 無駄 を と ころ の 多い プロ グラ ム で す が 、 単 純 に する た 
め に や む を 得 ず この よう に し まし た 。 

=400 TOQ 600.STEP100 と し た の は 、 斜 め に 箱 を 描く よう に な っ て いま す の で 、 
面 の 左下 に 描く に は 、 画 面 の 左 の 外側 か 描き 始め る 必要 が あっ た か ら で す 。 


次 の プロ グラ ム の 下線 の 部 分 に いろ いろ な 数 値 を 入れ て 、 箱 の 大 き さ や 結 の 幅 を 
変え て 実行 し て くだ さい 。 


"QB2_15_2 

CLS 

FOR ITI = TO STEP 
FOR J = TO STEP 


FOR I = ニ 本 + TO J STEP 
LINE (J + ITI。 の -E TITI。 ),。 1 ,BF 
NEXT 1 
NEXT 了 
NEXT ITI 





2. 1 6 文字 の 画面 表示 と 印刷 


これ まで 、 数 値 を 指定 し た 間隔 で 自動 的 に 作り な が ら 繰 り 返 す 機能 を も っ て いる 
FOR.…NEXT に よっ て 結 模 様 を つの くっ て きま し た 。 

で は 、 こ の 作ら れ た 数 値 を 画面 上 に 表示 する プロ グラ ム を 実行 し て 、 そ の 動き を 
確認 し まし ょ う 。 


例 1 100 か ら 300 ま で 50 間隔 で 増加 する 数 を つく り ま す 。 


"QB2_16_1 
CLS 
FOR I = 100 TO $00 STEP 50 


PRINT 1 
LERINT I 
NEXT I 





PRINT は 、 画 面 に 表示 する ステ ー ト メン ト で 、PRINT 1 と する と 変数 + の 内 容 の 数 
値 を 表示 し ます 。 

LPRINT は 、 プ リン タ に 印刷 する ステ ー ト メン ト で 、LPRINT I と する と 変数 I の 内 
容 の 数 値 を 印刷 し ます 。 


この プロ グラ ム は 、 画 面 お よび プリ ンタ に 次 の よう に 表示 、 印 刷 し ます 。 





例 2 J は 2000 か ら 4000 ま で 1000 問 隔 で 増加 し 、 同 時 に I は 100 か ら S00 ま で 
200 問 隔 で 増加 し ます 。 


*QB2_16_2 
FOR 了 = 2000 TO 4000 STEP 1000 
FOR I = 100 TO 300 STEP 200 


PRINT "J="J、 エ ーー":T 


NEXT I 
NEXT J 





I と J の 数 を 、PRINTI.J と し て 表示 で きま す が 、1 と J が 区 別 で きる よう に "]=" と 
=" を 表示 する よう に し まし た 。 

"J=" と 了 J の 問 に は 、 セ ミコ ロン [:] が 使わ れ 、J と "』=" と の 間 に は カン マ [,] が 
使わ れん て いる の は 、 間隔 の 空け 方 に 違い が ある か ら で す 。 

と りあ え ず 、 セ ミコ ロン を 使え ば 間隔 を と ら な いし 、 カ ンマ を 使え ば 十分 に 間隔 
を と る と 覚え て お いて くだ さい 。 


この プロ グラ ム は 、 次 の よう に 表示 、 印 刷 し ます 。 





ルー プ の 外側 に ある J が ゆっ くり と 変化 し 、 内 側 の 1 が 忙し く 変 化す る こと が 分 り 
ます 。 


2. 1 7 プロ グラ ム の 印刷 
プロ グラ ム を 印刷 する 方 法 を 説明 し ます 。 
1。 [FE/ フ 77 化 を マウ ス で 左 リ ッ ク し ます 。 あるいは 、 を 押し 、 続 いて F を 


者 し ます 。 
する と 、 [E/ フ 7 イ M の メニ ュー 画面 が 表示 され ます 。 


F/7 侯 EE/ 編 集 WV 表 示 


人 
の 用 義 えて 保存 。. 


P/ 印 刷 
X/ 終 了 





2。 [P/ 印 刷 ] を マウ ス で 左 ク リッ クレ し ます 。 あ る い は P を 押し ます 。 
する と 、 次 の よう な 【[P/ 印 刷 ] の メニ ュー 画面 が 表示 され ます 。 


P/ 印 刷 
印刷 する 範囲 を 指定 し て くだ さい 
( ) S/ 指定 範囲 
( ) W/ 現在 の ウイ ンド ウ 





(*) M/ 現在 の モジ ュー ル 
< 確認 > < 取消 > <H/ ヘ ルプ > 


3 。 < 確認 > を マウ ス で 左 ク リッ ク し ます 。 あ る い は 、【 条 | を 押し ます 。 
する と 、 プ ログ ラム の 印刷 が 開始 し ます 。 


印刷 され な い 場 合 は 、 プ リン タ の 電源 、 用 紙 の セッ ト 、 プ リン タケ ー ブ ル の 接続 
な ど を 確認 し て くだ さい 。 


2. 1 8 いろ いろ な 箱 の 模様 


これ まで は FOR.…NEXT で 箱 の 位置 や 大 き さ な ど を 指定 し て 描き まし た が 、 今 度 は 、 
も っ と 奉 放 に いろ いろ な 大 きき さ の 箱 を 描く こと に し まし ょ う 。 

その だ た め に 、 便 利 な 道具 が あり ます 。 それは RND と いう 魔法 の 杖 で す 。 こ の 杖 を 
使う と 、0 (ゼロ ) か ら 1 (イチ ) まで の 間 の 数 を バラ バラ に 出し て くれ ます 。 

魔法 の 杖 が どん な 数 を 出す か 、 次 の プロ グラ ム で 調べ まし ょ う 。 


*OB2_18_1 
CLS 


FOR I = 1 TO100 
PRINT RND: 
NEXT I 





これ を 実行 する と 、 次 の よう な 数 値 が 画面 へ 表示 され ます 。 


・7055475 .S33424 .S79S186 .289S62S .301948 .7747401 
1.401764E-02 .7607236 .81449 .7090379 4.535276E-02 
.4140327 .8626193 .79048 .3735362 .9619532 .87144S8 


3.6236S6E-02 .9495566 .3640187 .S248684 .7671117 
う .350453E-02 .S924582 .4687001 .29816S4 .6226967 
(以下 省略 ) 





画面 に 表示 され た 数 を 観察 し て くだ さい 。 RND は 0 より 大 きく 1 より 小さ ゆい 数 値 
を 1 と 0 の 間 で 均等 に 出す よう に つく られ て いる の で す 。 こ れ を 一 様 乱数 と いい ま 
す 。 

PRINT RND: の 最後 に 付け た : ( モ セミコロン) に は 改行 し を な いと いう 機能 が ある の 
で 、 1 行 に た くさ ん の 数 が 表示 され まし た 。 も し も : を 付け ず PRINT RND だ け な ら 
ば 、 数 を 表示 する た びに 改行 する の で 1 行 に 1 つの 数 を 表示 する こと に な り ま す 。 
セミ コロ ン を 削除 し て 実行 し て みて くだ さい 。 


さて 、 何 度 も 実行 する と 、 そ の た びに 同じ 数 の 並び が 表示 され る こと に 気付 か れ 


だ と と で し ょ よう 。 
実行 する た びに 異な っ た 乱数 が 表示 さき れる よう に 、 次 の 仕掛 け を 加え ます 。 


*QB2_18_2 
RANDOMIZE TIMER 
CLS 


FOR IT = 1 TO100 
PRINT RND 
NEXT 1 





RANDOMIZE は 乱数 系 列 を 取り 替え を る ステ ー ト メン ト で 、TIMER は 、 今 日 の 0 時 か ら 
の 秒 数 な の で す 。 例え ば RANDOMIZE 12345 と する と 、 や は り い つも 同じ 乱数 系 列 が 使 
われ て し まい ます 。 そこ で 、 毎 秒 ご と 時 刻 が 変わ る TIMER を 使っ た の で す 。 次 の プロ 
グラ ム で 秒 数 が 変わ る よう す を 見 て くだ さい 。 


"QB2_18_3 

FOR I =1 TO 10000 
PRINT TUMER 

NEXT I 





さて いよ いよ 、 箱 を 描く プロ グラ ム を つく り ま す 。 


"QB2_18_4 
RANDOMIZE TIMEKR 
FOR I = 1 TO1000 


LINE (RND * 640, RND* 400)-(RND * 640, RND * 400), RND ま 1 ,B 
LINE (RND * 640, RND \ 400)-(RND * 640. RND* 400), RND* 1 , BF 
NEXT I 





640 を 乗じ た の は 画面 が 横 方 向 に 640 の 点 あ か ら な っ て いる か ら で 、400 を 乗じ し た の は 
画面 が 縦 方 向 に 400 の 点 か ら な っ て いる か ら で す 。 


640 





400 CR 画面 





2. 1 9 円 の 模様 


次 の プロ グラ ム は 円 を 描き ます 。 


*QB2_19_1 


CLS 


CIRCLE (300, 200), 100, 3 





(300,200) は 円 の 中 心 の 座標 、100 は 半径 、3 は 色 番 号 (水色 ) で す 。 





CIRCLE (中 心 の 位置 ), 半径 , 色 番号 


FOR.….NEXT を 使っ て 、 次 の よう に いろ いろ な 円 模様 を つの くる こと が で きま す 。 


"QB2_19_2 
CLS 
FOR I = 0O TO 350 STEP $ 
CIRCLE (300, 200), 1。 1 
NEXT I 


"QB2_19_4 
CLS 


FOR 1I =0 TO640 STEP $ 
CIRCLE 。 200), 100, I 
NEXT 1 





"QB2_19_3 

CLS 

FOR I =O TO640 STEP $ 
CIRCLE (IT,。 200), 1, I 

NEXT 1 





*QOB2_19_S 
CLS 


FOR IT =O TO640 STEP $ 
CIRCLE (TI,。 , 1,。 1 
NEXT I 





*QB2_19_6 
CLS 
FOR X=0 TO 640 STEP 160 
FOR Y=0 TO 400 STEP 160 
FOR J=1 TO 30 


FOR 』=1 TO 80 STEP J 
CIRCLE ( 文 」Y), 1 了 
NEXT 』 
NEXT J 
NEXTY 
NEXT X 





上 の 例 を 参考 に し て 、 円 の 模様 を いろ いろ 工夫 し て みて くだ さい 。 
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2. 20 大 円 小 円 に 色 を 浴 る 


まず 、 乱 数 を 使っ て 画面 いっ ぱい に た くさ ん の 円 を 描き ます 。 


*QB2_20_1 
RANDOMIZE TIMER 
CLS 


FOR 』 = 1 TO100 
CIRCLE (RND * 640, RND * 400), RND * S0, RND*\8 
NEXT I 





この 円 に 色 を 塗る こと に し ます 。 色 は 、PAINT ス テー トメ ント を 使っ て 沙 り ます 。 
PAINT ス テー トメ ント で は 、 塗 る 位置 、 塗 る 色 、 塗 る 領域 を 囲む 縁 の 色 を 指定 する 
必要 が あり ます 。 

そこ で 、 そ れ ぞ れ の デー タ を あら か じ め 変 数 に 入れ て お いて 使う こと に し ます 。 


*QB2_20_2 
RANDOMIZE TIMER 
CLS 
FOR I = 1 TO100 
メニ RND* 640 * 円 の 中 心 の 又 座標 


Y マ =RND* 400 * 円 の 中 心 の Y 座 標 
R = ニ RND* 5S0 * 半 径 
C=RND*8 
CIRCLE ( 文 」Y), R, C 
PAINT ( 文 , や ), RND* 8, C 

NEXT I 





メメ =RND* 640 は 、 円 の 中 心 の 叉 座標 で す 。 一 様 乱数 の RND が 0 か ら 1 ま で の 範囲 の 
数 値 を 返す の で 、640 を 乗 ず る と 、X は 、0 か ら 640 ま で の 数 値 に な り ま す 。 ま た だ た 、Y= 
RND* 400 は 、 円 の 中 心 の Y 座 標 で す 。 一 様 乱数 に 400 を 乗じ し て 、Y は 、0 か ら 400 ま 
で の 数 値 に な り ま す 。 

R =RND* 0 は 、 半 径 で す 。 半径 が 50 ピ クセ ル (画面 の 光る 1 点 が 1 ピク セル ) 
以内 に を る よう に し まし た 。 

RND* 8 は 、 色 番号 で す 。 色 番号 は 、0 か ら 7 ま で で すか ら 、 一 様 乱数 を 乗じ し て 、8 
未満 の 数 値 を 得 て い ます 。 


PAINT ス テー トメ ント の 使い 方 は 次 の と お り で す 。 
PAINT (塗る 位置 ), 塗る 色 番 号 , 塗る 領域 を 囲む 色 番 号 


次 の 例 を 参考 に し て 円 模様 の プロ グラ ム を つく り ま し ょ う 。 


"QB2_20_3 "QB2_20_4 

CLS CLS 

FOR I = 330 TO 0 STEP -10 FOR I =640 TO 0 STEP -$ 
CIRCLE (300, 200)。 TI CIRCLE I, 200), 1。 1 
PAINT (300, 200), 1。 I PAINT I, 200), IT, 1 

NEXT 1 NEXT I 


*QB2_20_5 *QB2_20_6 

CLS CLS 

FOR I =640 TO 0 STEP -$ FOR I =640 TO 0 STEP -$ 
CIRCLE (TI。 200), 100, 1 CIRCLE , D, 1。 1 
PAINT , 200), 100, 1 PAINT 。 1), 1I, I 

NEXT I NEXT I 
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2. 21 整数 用 の 小さ い 容 器 


ここ で は 、 具 体 的 に イメ ー ジ し や すい よう に 変数 を 容器 と 言い 替え て み ま し た 。 
これ まで は 、 処 理 の 内 容 に よっ て 変数 を 使い 分 ける こと は し な か っ た の で す が 、 
実は 変数 に も いろ いろ ある の で す 。 


OB2_21_1 
人 A= ニ 1 
FOR I = 1 TO30 


A ニ A* キ 2 
PRINT A: 
NEXT I 





この プロ グラ ム は 、 最 初 に A に 1 を 入れ て お いて 、A を 30 回 2 倍 に し て いま す 。 そ の 
結果 は 次 の よう に な り ま す 。 2 倍 に な っ て いる こと を 確か め て くだ さい 。 


2 4 8 16 32 64 128 2S56 S12 1024 2048 4096 8192 
16384 32768 6SS36 131072 262144 524288 1048576 2097152 
4194304 8388608 1.677722E+07 3.355443E+07 6.710886E+O07 
1.342177E+08 2.6843SSE+08 S.368709E+O8 1.073742E+09 





途中 か ら お か し な 数 値 が 出 て きま す 。 8388608 の 次 の 1.677722E+07 は 、1.677722X 
10 "と いう 意味 で 16777220 の こと な の で 、 こ こ か ら は 正確 な 2 倍 に な っ て いま せん 。 
この 変数 は 単 精度 浮動 小数 点 型 の 変数 と いい 、 容 器 の 大 き さ が 6 桁 程度 の 精度 が で 
る よう に つく られ て いる の で 、 数 値 が 大 きく な る と 末尾 が 切れ て し まう の で す 。 
これ より も 小さ い 範 囲 で し か も 整数 だ け を 扱う 整数 型 の 変数 が あり ます 。 こ れ を 
使う と き は 、 変 数 名 に % を 付け る か 、「DEFINT 変数 名 」 と いう よう に 変数 の 型 を 定 
義 し て 、 整 数 型 の 変数 で ある こと を 示さ な けれ ば な り ま せん 。 

次 の プロ グラ ム は 、 両 方 の 方 法 で 1 の 2 倍 を 30 回 繰り 返す サ プ ロ グラ ム で す 。 


*QB2_21_2 
A% = 1 
FOR 1% = 1 TO 30 


A% ニ = A%\ 2 
PRINT A%: 
NEXT 1% 
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*OQB2_21_3 
DEFINT ALI 
A=1 


FOR I = 1 TO30 
A ニ A キ 2 
PRINT A: 
NEXT I 





どちら の プロ グラ ム で も 、 次 の よう に 同じ 結果 に な り ま す 。16384 ま で は 正確 に 計 
算 き さき れ ま す が 、 そ の 次 が オー バー フロ ー と いう こと で 停止 し て し まい ます 。 文字 ど 
お り 変 数 の 容器 が いっ ぱい に な っ た の で す 。 整数 型 の 変数 は 、-32.768 か ら 32,767 ま 
で の 数 値 を 扱う こと の で きる 変数 を の で す 。 


2 4 8 16 32 64 128 236 3S312 1024 2048 4096 8192 
16384 (オー バー フロ ー の た だ ため 停止 ) 





整数 型 の 変数 を 利用 する メリ ッ ト は 、 容 器 が 小さ い の で 、 高 速 に 計算 や 読み 書き 
が で きる と いう と ころ に あり ます 。 こ れ ま で 扱っ て きた プロ グラ ム は 、 す べ て が 整 
数 型 の 変数 で 十分 間に合い ます 。 

DEFINT は 、DEFINE (定義 ) と INTEGER (整数 ) を 合成 し た 言葉 で す 。DEFINT I-K 
と する と 、1、J、K、IWATE、JAPAN、KAISYA な ど 、1I、J、K を 頭 文字 と する 容器 が す 
べ て 整数 型 の 変数 と し て 取り 扱わ れ ま す 。 

実際 に は 、 次 の よう な 使い 方 を し ます 。 


"QB2_21_4 
DEFINT 1-J,。 XX-Y 
FOR 双 = O TO 640 STEP 160 
FOR Y= O TO 400 STEP 160 
FORJ= 1 TO30 


FOR I = 1 TOSO STEP J 
CIRCLE ( 区 。Y),。 IT,。 了 
NEXT I 
NEXT J 
NEXT Y 
NEXT 区 
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2. 22 整数 用 の 大 きい 容 人 器 


整数 型 の 変数 で は 、 大 き な 整 数 を 取り 扱う こと が で き な い の で す が 、 特 に 大 きい 
整数 の た め の 変 数 が 用 意 き れ て お り ま す 。 こ れ を 倍 長 整数 型 の 変数 と いい ます 。 
次 の プロ グラ ム は 、 倍 長 整数 型 の 変数 の 使用 例 で す 。 


QB2_22_1 

A&=1 

FOR I = 1 TO30 
A&= ニ A 必 *\2 
PRINT A 交 : 

NEXT 1 


"QB2_22_2 

DEFLNG A 

人 AA=1 

FOR 1 =1 TO30 
A= ニ A* キ 2 
PRINT A: 

NEXT I 





この プロ グラ ム は 同じ よう に 動作 し 、 2 倍 の 計算 を 繰り 返し て 2 の 1 乗 か ら 30 乗 ま 
で を 表示 し ます 。 変数 名 に & を 付け る か 、 ま た は 「DEFLNG 変数 名 」 と 定義 すれ ば 、 
倍 長 整数 と し て 扱わ れ ま す 。DEF は 、DEFINE (定義 ) の 略 で 、LNG は LONG の 略 で す 。 
また 、DEFLNG A-C と する と 、A、B、C を 頭 文字 と する 変数 は 倍 長 整数 型 の 変数 と な り 
まず すっ 


2 4 8 16 32 64 128 2S36 312 1024 2048 4096 8192 
16384 32768 6S536 131072 262144 524288 1048576 2097132 


4194304 8388608 16777216 33554432 67108864 134217728 
268435456 536870912 1073741824 





ここ で FOR 1 = 1 TO 30 の 30 を 31 に 変更 し て 実行 する と 、 3 1 回 目 に オー バー フ 
ロー と な っ て 停止 し ます 。 倍 長 整 数 型 の 変数 は 、-2,147.483.648 か ら 2,147,483,647 
まで の 数 値 を 取り 扱う こと が で きま す 。 こ れ を 1 だ け オ ー バ ー し た の で す 。 
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2. 23 小数 点 の ある 数 値 の 容 徐 


整数 は 小数 点 の な い 数 値 で す が 、 小 数 点 の ある 数 値 の た め の 容 器 は 別に あり ます 。 
すでに 2. 2 1 で 説明 し た 単 精度 浮動 小数 点 型 の 変数 が それ で す 。 実は せ 、 プ ログ ラ 
ム の 中 で 特に 定義 を し な いで 使用 し た 変数 は すべ て 単 精度 浮動 小数 点 型 の 変数 と し 
て 取り 扱わ れん ます か ら 、 知 ら ず に 使用 し て きた の で す 。 

この 単 精度 浮動 小数 点 型 の 変数 が どれ ほど の 数 値 を 扱う こと が で きる か を テス ト 
する プロ グラ ム を つく り ま す 。 


"QB2_23_1 
DEFINT 1 
A=1 
FOR 1 = 1 TO127 
ベニ AAY テ 2 
PRINT "ロー リエ "AA= ニ "iA 
NEXT I 


A= 2 
A= 4 
A= 8 
A= 16 
A= 32 


A= 2.126765E+37 
人 ム = 4.25353E+37 

A= 8.507059E+37 
A= 1.701412E+38 





*QB2_23_1 の プロ グラ ム は 、1 か ら 始 め て 結果 の 2 倍 を 1 2 7 回 繰り 返す も の で す 。 

1 2 7 回 目 の 答 は 1.701412E+38 と あり ます が 、 こ れ は 、1.701412X10?“『 と いう こ 
と で す 。 大 き な 数 を 表し て いる の で す が 表 示さ れ て いる 数 の 桁 数 は 全部 で 7 桁 だ け 
で す 。 最 下位 の 数 は いろ いろ 処理 され て 誤差 が 生じ て いる の で 、 信 頼 で きる の は 上 
位 か ら お よそ 6 桁 で らい で す 。 

コン ピュ ー タ は 、 こ の よう に 指定 され た 変数 型 に 必要 と する 桁 数 の 精度 で 計算 し 
て いる の で す 。 
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単 精度 浮動 小数 点 型 の 変数 は 、-3.402823X10?『 か ら -1.175494X10 “まで 、 及 び 
+1.175494X10~““『 か ら +3.402823X10*“* ま で を 取り 扱う こと が で きま す 。 

この プロ グラ ム で FOR I = 1 TO128 に 変更 し て 実行 する と 128 回 目 に オー バー 
フロ ー の た め 信 止 し ます 。 

単 精度 浮動 小数 点 型 の 変数 は 、AI,B!,CILD! の よう に 1! を 付 し て 使用 する 方 法 と 、 

「DEFSNG 変数 名 」 と 定義 し て 使用 する 方 法 が あり ます 。SNG は SINGLE の で す 。 

何 も し な けれ ば 単 精度 浮動 小数 点 型 で すか ら 、 一 般 に は DEFSNG や ! を 使わ な いよ う 
Eva 


さら に 、 も っ と 精度 を 高め る た め に 、 倍 精度 浮動 小数 点 型 の 変数 が あり ます 。 

倍 精 度 浮動 小数 点 型 の 変数 は 、DEFDBL A-D と 定義 し た り 、 個 別に 、A#、B#、C#、 
D# と いう よう に # を 付 し て 定義 し て 使用 し ます 。 

有効 桁 数 は お よそ 15S 桁 で 、10 の 308 乗 と いう 気 の 遠 く な り そ う な 大 き な 数 を 扱う こ 
と が で きま す 。 


"QB2_23_2 
DEFINT I 
DEFDBL A 
人 A ム =1 
FOR I = 1 TO1023 
A= ニ A\2 
PRINT "ロー ニー" エリ A= ニ の A 
NEXT I 


A= 2 
A= 4 
A= 8 
A= 16 


A= 1.123558209288947D+307 
A= 2.247116418577895D+307 
A= 4.49423283715579D+307 
A= 8.98846567431158D+307 





他 に 、 文 字 専門 の 容器 も ある の で す が 、 こ の 説明 は あと に し ます 。 





2. 24 線 を 描く 


線 は 、 箱 の 描き 方 と 同じ で す 。LINE ス テー トメ ント は も と も と 線 を 描く 命令 で 、 
これ に B を 加え て 長方形 を 描く よう に し た も の な の で す 。 


*OB2_24_1 


CLS 
LINE (200, 300)-(S00, 100), 4 





(200, 300)-(S00, 100) は 線 の 両端 の 座標 で 、4 は 色 番 号 ( 赤 ) で す 。 


0 一 一 ーーーーーーーーーーーーー ブ ーー 639 


100『 





= ネン (500,100) 


ここ ニニ ニニ ニニ ニニ = ニニ と ーー つら 


(200,300) 


399 


次 の プロ グラ ム は 、 乱 数 を 使っ て いろ いろ な 線 を 描い た 例 で す 。 


"QB2_24_2 
DEFINT 1 
CLS 


FOR I = 1 TO200 
LINE (RND * 640, RND * 400)-(RND * 640, RND * 400), RND * 100 


NEXT I 
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次 の プロ グラ ム は 、 相 対 座 標 を 使っ て 連続 し た 線 を 描い た 例 で す 。 


"QB2_24_3 
CLS 


LINE (40, 40)- STEP (50。_30), 3 


LINE- STEP (100、80), 4 
LINE- STEP (-120、-40),。 3 





STEP を 使う と 、 現 在 位置 か ら の 相対 的 な 座標 で 線 を 描く こと が で きま す 。 


LINE (40, 40)- STEP.(S0,。.30)。3 は 、〈40,40) の 位置 か ら 右 へ 50、 下 へ 30 の 位置 
へ 線 を 描き ます 。 


LINE- STEP (100、80)。 4 は 、 現 在 位置 か ら 右 へ 100、 下 へ 80 の 位置 へ 線 を 描き ま 
ず すっ 


LINE- STEP (120。-40)、$ は 、 現 在 位置 か ら 左 へ 120、 上 へ 40 の 位置 へ 線 を 描き 
まま 。 


399 








2. 25 線 で 結 模 様 


線 で 結 模 様 を 描き ます 。 
次 の プロ グラ ム 例 を 参考 に し て 、 線 の 結 模 様 の プロ グラ ム を 工夫 し まし ょ う 。 


次 の プロ グラ ム は 横 結 の 例 で す 。 


"QB2_25_1 
DEFINT I 
CLS 


FOR 1= 0 TO 399 STEP 10 
LINE (0, -(639。 DI 
NEXT I 





次 の プロ グラ ム は た て 結 の 例 で す 。 


"QB2_25_2 

DEFINT I 

CLS 

FOR != 0 TO 639 STEP 10 
LITE G, O)-, 399), I 

NEXT I 





次 の プロ グラ ム は 、STEP を 変更 し て 何 度 も 上 描き し て 色 を 塗る 例 で す 。 


*QB2_2S_3 
DEFINT T-J 

CLS 
FOR 了 = 1 TO 80 


FOR エ =0 TO 399 STEP 了 
TLITNE (0, -(639, 1), 了 
NEXXT I 
NEXT J 





次 の プロ グラ ム は 、 階 段 の よう な 模様 の 例 で す 。 


*QB2_25_4 
DEFINT C,L- 反 
CLS 
FOR J = 1 TO 30 "STEP の キザ ミ を 変え る 
FOR 1 = 1 TO640 STEP J * 階 段 の 広 さ と 高 さ を 変え る 
C=RND* Ii * 色 を 変え る 


LINE (0, O)- STEP t, O), ご * つ くり は じ め の 階段 
FOR K = 1 TO 10 * 階 段 は 1 0 段 ず つつ くる 
LINE - STEP (0, D), ご * 階 段 の 縦 部 分 
LINE - STEP , O), で * 階 段 の 横 部 分 
NEXT K 





2. 26 点線 を つく る 





点線 を 描く プロ グラ ム 例 は 、 次 の と お り で す 。 


"QB2_26_1 
CLS 
LINE (100, 200)-(400, 300), S, , 婦 HEOFO 


*QB2_26_2 
CLS 
LINE (100, 200)-(400, 300), 5, , &HFFOO 





点線 は 、 1 6 個 の 光 の 点 (16 ビ ク も U を &HFOFO と いう 形 に 表現 し て 、 こ れ を 画面 上 
に 表示 する よう に な っ て いま す 。 

最初 の &H は 、 次 の FOFO が 1 6 進数 で ある こと を 示し て いま す 。 

FFO00 は 点線 の 形状 を 表し て いま す 。 一 つの 1 6 進数 が 4 個 の 光る 点 を 受け も っ て 
お り 、 1 6 進数 の F は 2 進数 で は 1111 で これ で 4 個 の 点 を 光ら せ 、 1 6 進数 の 0 は 2 
進数 で も 0 で 4 個 の 点 は 光ら せな いと いう こと で す 。 


ーー 画面 上 の 1 文字 分 の ーーー 
点線 の 形状 
画面 上 の 点 攻 錠 錠 多 潮時 黒 時 凶 凶 狼 凶 潮 早 圭 潮 
2 進数 で 表す 
1 主旨 KG ます | TFT | 0 『] 5 し 
も 


LINE ダ ー ト ルト 上 で の 表し 方 &HFOFO 





1 6 進数 と いう と ころ で 、 突 然 F が 出 て きま し た 。F は 数 字 な の で し ょ うか 。 
普通 に 使っ て いる 0 か ら 9 ま で の 1 0 種類 の 数 字 で は 1 6 進数 を 表現 で き な い の で 、 
アル ファ ベッ ト か ら 人 借り て 、0、1、2、3、4、3S、6、7、8、9、A、B、C、D、E、F の 
1 6 種類 の 数 字 で 表現 し て いる の で す 。 
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参考 まで に 、 1 0 進数 、 2 進数 、 1 6 進数 の 対応 表 を 示し ます 。 





の O の ぐ の い いよ いい は OO 





ら CO @ の 6 の い ウト いい QFO 





次 の プロ グラ ム は 、 破 線 の 例 で す 。 


"QB2_26_3 
CLS 
LINE (100, 200)-(400, 300), 3, ,&HFFBC 





B を 加え る と 、 長 方 形 も 点線 で 描け ます 。 


*QB2_26_4 


CLS 
LINE (100, 200)-(400, 300), 5,_B,&HFFBC 








2. 27 星空 と 流れ 星 





パソ コン の 画面 上 に 星空 を 描き まし ょ う 。 


1 個 の 星 は 点 で 表し 、 次 の よう に プロ グラ ム を 書き ます 。 


"QB2_27_1 
CLS 
PSET (200, 100), 7 


(この 点 を 消す 場合 は ) 
PRESET (200, 100) 





点 の 描き 方 と 消し 方 は 、 次 の と お り で す 。 


点 を 描く PSET ( 点 の 位置 ), 色 番号 
点 を 消す PRESET ( 点 の 位置 ) 


そこ で 、 天 数 を 使っ て 星空 を 描き ます 。 
*QB2_27_2 


RANDOMIZE TIMER * 乱 数 系 列 を 設定 
DEFINT I T は 整数 


CLS * 画面 消去 
FOR 1 = 1 TO 300 *300 回 繰り 返す 

PSET (RND * 640, RND * 400),IMOD 8 " 点 を 描く 
NEXT 1 





色 番 号 の 部 分 は 、LMOD 8 と 書い て いま す 。 

色 番 号 は 0 か ら 7 ま で で す が 、 こ れ 以 外 の 数 で も 一 応 色 指 定 が で きる の で 、 こ れ ま 
で は 間に合わ せ て きま し た 。 こ こ で は 、IMOD 8 と し て 、 か な ら ず 0 か ら 7 ま で の 整 
た な る よう だ し まし た 。 

これ は 、I を 8 で 割っ て 余り を 計算 する 式 で す 。 こ の 式 の 答 は 、 割 り 切 れる 場合 は 0 


で 、 割 り 切 れ な い 場 合 は 1、2、3、4、$、6、7 と な り ま すか ら 、 必 ずい ずれ か の 色 番 
号 と 一 致す る こと に な り ま す 。 
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次 に 、 流 れ 星 を 加え た プロ グラ ム を つく り ま す 。 


YOQB2_27_3 
RANDOMIZE TIMER 
DEFINT 1-J 
CLS 
FOR I = 1 TO300 
PSET (RND * 640, RND * 400), IL_MOD 8 
NEXT I 
FOR I = 1 TO 10 * 流 れ 星 を 10 個 表示 する 
1 =RND* 640 * 流 れ 星 の 始点 の 横 方 向 の 位置 


Y1 =RND* 400 * 流 れ 星 の 始点 の 縦 方 向 の 位置 
X2 = RND* 640 * 流 れ 星 の 終点 の 横 方 向 の 位置 
Y2=RND* 400 * 流 れ 星 の 終点 の 縦 方 向 の 位置 
LINE (1, Y1)-( 玉 2, Y2), 7 * 流 れ 星 を 描く 
LINE ( 文 1, Y1)-( ズ 2, Y2), O * 流 れ 星 を 消す 
FOR J = 1 TORND* 10000. 

* 次 の 流れ 星 を 表示 する まで の 時 間 を と る 





RND* 10000 は 、 流 れ 星 を 表示 する 時 間 間 隔 を 変え た る た め に 、 乱 数 に 10000 を 乗算 
し て 、 そ れ を 数 えて 、 時 間 の 間隔 を と る よう に し た の で す 。 





2. 28 方 程 式 の 計算 と 見 や すい 数 字 の 表示 
数 学 の 式 を 計算 し まし ょ う 。 
YsX 3 文 -1 の プロ グラ ム を つく り ま す 。 


"QB2_28_1 区 三 -3 Y ニ -19 
CLS 区 ニ -2.7 =-12.583 
FOR = -3 TO 3 STEP .3 ニ -2.4 Y=-7.624001 
Y= ニ 文人 へ 3 - 3 キキ 貢 - 1 文 三 -2.1 Y=-3.961002 
PRINT " 文 =": 区 "ヤミ" Y 文 三 - 1.8 Y ニ -1.432001 
NEXT X 区 三 - 1 .S .1249993 
ズー- 1 .2 .8719996 
文 ニ -.90O00003  Y= .9710002 
文 三 -.6000003 Y= .5840005 
文 =-.3000003 ヤニ -.1269993 
=-2.384186E-07 Y ニ =-.9999993 
メ = .29099998  Y ニ -1.872999 
メ = .S999998  Y ニ =-2.S84 
= .8999998  Y=-2.971 
文 = 1.2 Y ニ -2.872 
= 1.5 Y ニ -2.125001 
= 1.8 Y ニ -.S680017 
ズ = 2.1 Y= 1.960996 
ズ = 2.4 Y= 5.623995 
ズ = 2.7 Y= 10.58299 
文 = 3 Y= 16.99999 





FOR XX = -3 TO 3 STEP .3 は 、X=-3 か ら X=3 ま で 、0.3 き ざ み で 計算 を 繰り 返 そ うと 
し で ゆい ます 。 

文 へ 3 は 、X の 3 乗 と いう こと で す 。 ^ は 帽子 の よう な の で ハッ ト と いい ます 。X の 
8 乗 な ら ば 、 文 ^8 と する の で す 。 

右 の 計算 結果 は 、 一 見 詳細 な 結果 が 出 て いる よう で す が 、 よ く 見 る と 筆算 の 計算 
結果 と 違っ て いる と ころ が だ た くさ ん あり ます 。 例え ば 、-0.9 と な る べき と ころ が 、 
-0.9000003 と な っ て いま す 。 これ は 、X、Y が 単 精度 浮動 小数 点 型 の 変数 な の で 、 論 
差 が 出 て し まう の で す 。 
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次 に 、 計 算 結 果 が 見 や すく 表示 きれ る プロ グラ ム を つく り ま す 。 


*QB2_28_2 
CLS 
FOR メ = -3 TO 3 STEP .3 
Y ニ = ニ メ へ 3 - 3* 文 - 1 
PRINT USING "ズー 旭 胡 -# Y= 貞 婦 . 棚 時 75X:Y 
NEXT X 


Y ニ -19.000 
Y ニ =-12.583 
Y= -7.624 
Y= -3.961 
Y= -1.432 
Y= 0.123 
Y= 0.872 
Y= 0.971 
ヤミ 0.584 
Y= -0.127 
Y= -1.000 
Y= -1.873 
Y= -2.584 
Y= -2.97 1 
Y= -2.872 
Y= -2.12S 
Y= -0.S68 
ヤニ 1.961 
ヤミ = S3.624 
Y= 10.583 
Y= 17.000 





PRINT USINO "XX= 婦 蜂 # ヤミ 旨 拓 提 非 店 :Y の 中 の USING "## 馬 .#": は 、X と Y の 表示 の 
形 を 定め て いま す 。 紐 尋 は 整数 部 3 桁 と いう こと で 、 次 の .# は 小数 部 1 桁 と いう こと 
で す 。 例え ば 、 整 数 部 4 桁 で 小数 部 2 桁 な ら ば 、USING " 家 地 #.#" と 書き ます 。 

また 、 整 数 部 の 桁 数 が 少な い 場 合 は 先頭 に スペ ー ス が 入り 、 端 数 が ある 場合 は 自 
動 的 に 四捨五入 を し て 表示 され ます 。 例え ば -3.961002 を "## 皇 "で 表示 する と 、 先 
頭 に スペ ー ス が 1 個 入 り 、 次 に 小数 第 2 位 が 四捨五入 され て -4.0 と 表示 され ます 。 


2. 29 方 程 葉 を 描く 


方 程 式 の グラ フ を 画面 上 に 表示 する プロ グラ ム を つく り ま す 。 

式 は 、Y=X“-3 文 -1 で 、 表 示 の 範囲 は 、 (-3,-3) か ら (3.3) ま で と し ます 。 

ここ で 、 こ れ か ら 描 こう と する 方 程 式 は 左下 が (-3,-3) で 、 右 上 が (3.3) の 座標 な 
の に 、 パ ソコ ン の 画面 は 左上 が (0,0) で 右 下 が (640.400) で すか ら 、 ま っ た だ た く 違 っ て 
いる の で す 。 

Quick BAS 1IC に は 便利 な 道具 が あっ て 、 に C-3,-3) か ら (3,3) ま で の 仮 の 
座標 に グラ フ を 描く と 、 実 際 の 画面 に 表示 し て くれ ます 。 


(0.0) 
(-3.3) 9.3) 


TP 
(639.0) 


C-3,-3) (③。-3) 





0 (632.322) 


(-3,-3) か ら (3.3) ま で の 範囲 に グラ フ を 描い て 、 実 際 の スク リー ン 上 の 、(10,10) 
か ら (200,200) ま で の 位置 に 表示 する プロ グラ ム を つく り ま す 。 


*QB2_29_1 

CLS 

WINDOW (-3, -3)-(3, 3) *(-3。 -3) か ら (3, 3) ま で 窓 を 用 意 し て 
VIEW (10, 10)-(200, 200) * 窓 を (10。 10) か ら (200, 200) ま で に 表示 
LINE (-3, -3)-(3。 3)。 3, B, 尺 HFFFF * 表 示す る 部 分 の 枠 を 描く 
LINE (-3, O)-(3。 O), 3, , &HFOFO * 文 軸 を 描く 


LINE (0, -3)-(0, 3)。 3, , &HFOFO *Y 軸 を 描く 
FOR メ = -3 TO 3 STEP .01 " 文 =-3 か ら 3 ま で 0.01 き ざ み 
* で 繰り 返す 
Y ニ 文人 3 - 3* 文 - 1 Y を 計算 
PSET ( 文 」Y), 2 * 点 を 描く 
NEXT X 





次 は 、Y=X テ 5X 和合 3X の グラ フ を て (-2,15) か ら (6,-10) の 範囲 に 描い て 、 画面 上 は 
(250.210) か ら (430,390O) の 男 囲 に 表示 する プロ グラ ム で す 。 


"QB2_29_2 

CLS 

WINDOW (-2。 15)-(6, -10) *(-2。 15) か ら (6, -10) ま で の 和男 囲 を 見 る 

VIEW (230, 210)-(430, 390) > それ を (230, 210) か ら (430, 390) 
* ま で に 表示 する 

LINE (-2, 15)-(6, -10), 6, B,&HFFFF * 表 示す る 部 分 の 枠 を 表示 する 


LINE (-2, O)-(6, O), 6, ,&&HFOFO * 文 軸 を 描く 

LINE (0, 15)-(0, -10), 6, ,&&HFOFO *Y 軸 を 描く 

FOR メ = -2 TOG STEP .01 * 文 =-2 か ら 6 ま で 0.01 き ざ み で 繰り 返す 
Y ニ へ 3 - $* 文 了 文 寺 う *X Y を 計算 
PSET ( 文 , Y), $ * 点 を 描く 

NEXT X 





2. 30 円 弧 と 扇 の 模様 


円 統 は 、 円 と 同様 に CITRCLE ス テー トメ ント で 容易 に 描く こと が で きま す 。 


次 の プロ グラ ム は 、 半 径 100、30 度 か ら 120 度 まで の 円 弧 を 緑色 で 描き ます 。 


*OQB2_30_1 
CLS 





CIRCLE (300,200), 100, 2. 30* 3.14 / 180, 120 * 3.14 / 180 


円 紋 は 次 の よう に 描き ます 。 
CIRCLE (円 の 中 心 の 位置 ) , 半径 , 色 番 号 , 始め の 角度 , 終り の 角度 


始め の 角度 と 終り の 角度 は 弧 度 法 に よる 角度 で すか ら 、 度 数 法 に よる 30 度 と 120 度 
は 、 弧 度 に な お す 必 要 が あり ます 。 


弧 度 法 の 角度 = 度数 法 の 角度 メ X3.14 二 180 で す 。 
例え ば 度数 法 30O 度 な ら ば 、30 * 3.14 / 180 と 計算 し ます 。 


円 弧 の 連続 模様 の プロ グラ ム 例 で す 。 円弧 の 模様 は 、 単 純 に 並べ る だ け で も お も 
し ろ い 連続 模様 が 描け ます 。 


*QB2_30_2 円 弧 の 連続 模様 
RANDOMIZE TIMER 
CLS 
FOR メ = O TO 640 STEP 40 
FOR Y = 40 TO 400 STEP 40 


CIRCLE (区 , や), 40, (*Y+ 1) ま RNDMOD 7 + 1, 


0, 90 * 3.14 / 180 





半径 40 で 0 度 か ら 90 度 まで の 円 弧 を 、 画 面 全体 に 表示 する た め 、X と Y で 横 位置 と 縦 
位置 と を 決め て いま す 。 

色 番 号 は 、(CX* ヤ Y+ 1) * RNDMOD7+1 と 乱数 を 使っ て 難し くし て いま す が 、 
いろ いろ に 取り 替え て 好み の 色 に し て くだ さい 。90 * 3.14 / 180 は 、90 度 の 弧 度 の 


計算 で す が 、90 を 360 度 以内 で 変え る と 模様 も 変わ り ま す 。 半径 40 で す が 、 こ れ も い 
ろ い ろ に 変え る こと が で きま す 。 


次 は 、 扇 を 描き ます 。 扇 は 円 弧 の 開始 角度 と 終了 角度 を マイ ナス と すれ ば 描け ま 
す 。 


次 の プロ グラ ム は 、QB2_30_1 の プロ グラ ム を 扇 に 改造 し た も の で す 。 


*OQB2_30_3 半径 100、30 度 か ら 120 度 まで の 扇 を 緑色 で 描く 


CLS 
CIRCLE (300,.200), 100, 2, -30 * 3.14 / 180, -120 3.14 / 180 





次 の プロ グラ ム は 、 い ろ い ろ な 形 の 扇 を 画面 全体 に 表示 し ます 。 


"QB2_30_4 
RANDOMIZE TIMER 
CLS 


FOR I = 1 TO200 
CIRCLE (RND * 640, RND * 400), RND * 100, I MOD7+ 1, 
-RND\ 2 * 3.14。-RND\ 2 \ 3.14 


NEXT I 
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2. 31 本 円 の 模様 


析 円 は 、 円 の CHRCLE ス テー トメ ント に 縦横 の 径 の 比率 を 加え て 描き ます 。 
村 円 の ステ ー ト メン ト の 形式 は 、 次 の と お り で す 。 
CIRCLE ( 析 円 の 中 心 の 座標 ), 椿 円 の 横 軸 の 半径 , 色 番 号 ,,, 縦横 の 比率 


次 の プロ グラ ム は 、 横 軸 の 半径 100、 縦 軸 の 半径 50 の 権 円 を 画面 上 の (300,200) の 
位置 へ 水色 で 描き ます 。 


"QB2_31_1 


CLS 
CIRCLE (300, 200),100, 3, , , 50 / 100 





50 


(300,200) 


また 、 棒 円 の 円 弧 や 扇 も 、 円 の 場合 と 同様 に 描く こと が で きま す 。 


椿 円 の 円 弧 CIRCLE ( 椿 円 の 中 心 の 位置 ), 杖 円 の 横 軸 の 半径 , 色 番 号 , 
開始 角度 , 終 工 角度 , 縦横 の 比率 


椿 円 の 扇 CIRCLE ( 枯 円 の 中 心 の 位置 ), 棒 円 の 横 軸 の 半径 , 色 番号 , 
- 開 始 角 度 , - 終了 角度 , 縦横 の 比率 
† 1 
マイ ナス と し ます 


椿 円 の 連続 模様 を 作り まし ょ う 。 次 の プロ グラ ム は 、 横 軸 の 半径 40 の 椿 円 を 、 比 
率 0.2 か ら 2 ま で 0.2 き ざ み で 変え て 、 画 面 全体 に 表示 し ます 。 


*QB2_31_2 
FOR R = .2 TO 2 STEP .2 > 比率 を 0.2 か ら 2 ま で 0.2 き ざ み で 
* 変 えて 繰り 返す 


CLS * 画 面 消去 
FOR メ =0TO 640 STEP 40 * 画 面 上 の 横 方 向 の 中 心 位置 の 決定 


FOR Y=0 TO 400 STEP 40 *R * 画 面 上 の 縦 方 向 の 中 心 位置 の 決定 
CIRCLE ( 文 , や ), 40, 文 *Y MIOD7+ ィ 1,,,R * 椿 円 を 描く 
NEXTY 





次 に 、 2 個 の 円 弧 の 連続 で 、 し め な わ 模 様 を 描く プロ グラ ム を 作り ます 。 








い ヽ 、120 度 か ら 
0 度 ま で 


180 度 か ら 
300 度 まで 






次 の プロ グラ ム は 、 半 径 19 の 椿 円 を 、 比 率 0.2 か ら 2 ま で 0.2 き ざ み で 変化 さき せな が 
ら 、 し め な われ 模様 を 描き ます 。 


"QB2_31_3 
R=19 * 半 径 を 19 と する 
FOR P = .2 TO 2 STEP .2 * 棒 円 の 比率 は 0.2 か ら 2 ま で 0.2 き ざ み で 
* 繰 り 返 す 
CLS * 画 面 消去 
FOR Y =R TO 400 STEPR *P*2+1 * 中 心 の 画面 の 縦 位置 の 決定 
FOR メ =0 TO 640 STEP R * 中 心 の 画面 の 横 位置 の 決定 


CIRCLE (区 , や ), R, Y MOD 7 + 1. 0, 120 * 3.14 / 180, 
"上 の 棒 円 


CIRCLE ( ズ + R, Y), R, Y MOD7+ 1., 
180 * 3.14 / 180, 300 * 3.14 / 180.P ' 下 の 本 円 





2. 32 繰り 返し の 名 人 と 終了 


パソ コン は 繰り 返し の 名 人 で す 。 

これ まで も 、FOR.…NEXT と いう 便利 な 仕掛 け で 繰り 返し の 仕事 を 見 事 に こなし て 
きま し た 。 FOR.……NEXT は 、 あ ら か じ め 繰 り 返 す 回 数 が 決っ た 処理 を し まし た 。 とこ 
ろ が 、 実 際 に は 繰り 返す 回 数 が 分 ら な い 場 合 や 都合 に よっ て 途中 で 中 止 し た い 場 合 
が あり ます 。 

この よう な 処理 に 使え る 仕掛 けが DO.…LOOP な の で す 。 


次 の プロ グラ ム は 、 科 の 表示 を 永久 に 繰り 返し ます 。 


*QB2_32_1 永久 の 繰り 返し 
DO 


CLS 
PRINT "永久 に 繰り 返し ます 。" 


FOR 1 = 1 TO640 STEP 2 
LINE (。 D-G * ま 2. TI* ま 2)。 I MOD7+ 1.B 
NEXT I 
LOOP 





この プロ グラ ム の 動作 を 中 止 す る に は 、[STOP| キー を 押す か 、 強 引 で す が 電 源 を 
切る 以外 あり ませ ん 。 
そこ で 、1 回 模様 を 描く た びに 続け る か どう か 確認 する よう に 改造 し ます 。 


*QB2_32_2 1 回 描く だ たび に 継続 を 確認 する 
DO 

CLS 

FOR IT = 1 TO640 STEP 2 


LINE 1, 1)-T * 2, IT * 2)。 1I MOD7+ 1,B 
NEXT I 
INPUT "模様 を 続け ます か 。 は い :Y いい え :N ---":YS 
LOOP UNTIL Y$="NY" 





この プロ グラ ム で は 、N を 入力 すれ ば 中 止 で きま す 。 その他 の キー を 押し た ら 続 
ける よう に な っ て いま す 。 

LOOP UNTIL Y$="N" は 、Y$ と いう 変数 に N が 入っ て いれ ば 、 繰 り 返 し を 中 止 する 
と いう こと で す 。 そこで 、UNTTL の 後ろ に 中 止 の 条件 を 書け ば よい の で す 。 
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次 の プロ グラ ム は 、 何 か キー を 押せ ば 、 そ の と き 描 いて いた 円 を 描き 終っ た と こ 
ろ で 終了 し 、 何 も 押さ な いで いれ ば その 動作 を 繰り 返し ます 。 


*QB2_32_3 終了 する 
DO 
CLS 


FOR I = 1 TO640 STEP S 
CIRCLE , 1), 1。 I MOD7+1 
NEXT I 


LOOP UNTIL INKEY$ <> "" 





前 の プロ グラ ム は 、N を 押す と 終了 し 、N 以 外 の キー を 押し て 繰り 返す よう に な 
っ て いま す が 、 そ れ と は 似 て いる よう で 異な り ま す 。 INKEY$ は 、 押 され だ た キー の 
1 文字 を 受け 取る 仕掛 け で す 。INPUT は 入力 され る まで 待っ て いま す が 、INKEY$ は 押 
され て いな けれ ば 何 も し ませ ん 。 

"は 何 も な い コ ー ド (NULL コー ド ) で すか ら 、IJNKEY$S > は 、「 何 か キー が 
押さ きれ て いれ ば | と いう こと に な り 、LOOP UNTIL INKEY$ <> "で は 、「 何 か キー が 
押 き れる まで 、 繰 り 返 す 。」 と いう こと に な り ま す 。 言 い 直せ ば 、「 何 か 押さ れ て 
いれ ば 、 終 了 す る 。」 と いう こと に な り ま す 。 





次 の プロ グラ ム は 、 模 様 を 描い て いる 途中 で も 、 中 止 し た い 時 に 中 止 で きま す 。 


*QB2_32_4 模様 を 描い て いる 途中 で 中 止 する 
DO 

CLS 

PRINT " 何 か キ ー を 押す と 止ま り ま す 。" 


FOR 』 = 1 TO640 STEP 2 
CIRCLE (IT。 T)。 TI。 I MOD7+ 1 
IF INKEY$ <> "THEN EXIT DO 
NEXT 』 
LOOP 





EXTIT DO は 、EXIT は 出口 で 、DO は DO.….LOOP の こと で す 。 そこで 、 こ の 1 行 は 、 
「 も し も 、 何 か キー が 押さ きれ て いれ ば 、DO.LOOP を 出る ]」 、 す な わ ち 、 繰り返し は 
中 止 す る こと に な り ま す 。 


2. 33 便利 な 選択 
パソ コン で 仕事 を する 場合 、 ア レ カ コ レ カ 、 と 仕事 を 選ぶ 場合 が 多い も の で す 。 


仕事 を 選択 する プロ グラ ム は 、 次 の よう に 書き ます 。 


*QB2_33_1 2 種類 の 模様 を 選択 し て 表示 する 
DO 
CLS 
PRINT "模様 を 選択 し て 番号 を 入力 し て くだ さい 。" 
INPUT "円 模様 :1 箱 模様 :2 終了 :E ": BANGOU$ 
"BANGOU$ と いう 容器 に 1 か 2 か E を 受け 入れ る 


CLS 
SELECTCASE BANGOU$ BANGOU$ の 内 容 に よっ て 仕事 を する 
CASE "1" "BANGOU$ が "1" の 場合 の 仕事 円 模様 
FOR I = 1 TO40O STEP $ 
CIRCLE 1, TDD), I / 2, I MOD7+1 
NEXT I 
CASE "2" "BANGOU$ が "2" の 場合 の 仕事 三 箱 模様 
FOR 1 = 1 TO 400 STEP 2 
LINE 。 DD-t * 2, 1 * う ), I MOD7+ 1,B 
NEXT 1 
CASE "E" "BANGOU$ が "E" の 場合 の 仕事 終了 
EXTT DO 
CASE ELSE "BANGOU$ が 1.,2,E 以 外 の 番号 の 場合 の 仕事 
PRINT "番号 違い で す 。" * 間 違っ た 入力 を お 知ら せ す る 
BEEP: BEEP: BEEP * 警 告 音 を 3 回 鳴ら す 
END SELECT * 選 択 の 仕掛 の 終了 
LOOP 





選択 の 仕掛 け は 、SELECT.….END SELECT で 、 こ れ を 使う と プロ グラ ム が 鮮やか に 
見 えま す 。 

SELECT CASE に 続い て 、 選 択 の 番号 を 入れ た 変数 の 名 前 (ここ で は BANGOU$) を 書 
いて 、 さ ら に CASE の 後に 選択 の 番号 を 書き ます 。 す る と 、 各 CASE に 書い た 仕事 を す 
る の で す 。 決め られ た 番号 以外 が 入力 され た 場合 は 、CASE ELSE の と ころ で 処理 し ま 
す 。 

どう ぞ 、 プ ログ ラム に CASE を 書き 加え て 、 動 き を 楽し ん で くだ さい 。 


さて 、 番 号 を 選択 する と き に は 、 例 えば 2【 条 | と いう ょ うに 数 字 の あと で [| を 


押し まし た が 、 今 度 は 【J| を 押さ な いで 数 字 の 入力 だ け で 選択 で きる よう に 改造 し 
ます 。 


*OQB2_33_2 
DO 
CLS 
PRINT "模様 を 選択 し て 番号 を 入力 し て くだ さい 。" 
PRINT "円 模様 :1 箱 模様 :2 終了 :E" 
DO 
BANGOU$ = INKEY$ 
* 押 され た キー の 1 文字 を 受け 入れ て BANGOU$ に 入れ る 
LOOP UNTIL BANGOU$ <> "" "BANGOU$ に 何 か 入 力 さ れる まで 繰り 返し ます 
SELECT CASE BANGOU$ 
CASE "1" 
FOR I = 1 TO640 STEP $ 
CIRCLE GL。 DD, 1,。 I MOD7+ 1 
NEXT 1 
CASE "の 
(以下 省略 ) 








2. 34 選択 で 模様 の 合成 





今度 は 、 選 択 す る 番号 を キー ボー ド か ら 入 力 す る の で は な く 、 乱 数 で 自動 的 に 模 
様 の 種類 を 選択 し て 表示 する プロ グラ ム を つく り ま す 。 


"乱数 系 列 


CLS 
DO 
R =RND * 乱 数 を R へ 入れ る 
SELECT CASER *R の 値 で 処理 を 選択 する 
CASE IS <.3 *R<0.3 な ら ば 円 模様 
FOR 1 =0 TO 10 
CIRCLE (RND * 640, RND * 400), RND * 100, RND * 100 
NEXT I 
CASE IS <.7 *0.3<=R<0.7 な ら ば 椿 円 模様 
FOR 1I =0 TO 10 
CIRCLE (RND * 640, RND * 400), RND * 100, 
RND * 10, -2 * 3.14 * RND, -2 * 3.14 * RND, 2 * RND 
NEXT I 
CASE IS < .9 *0.7<=R<0.9 な ら ば 箱 模様 
FOR I =0 TO 10 
LINE (RND * 640, RND * 400)- 
(RND * 640, RND * 400), RND * 10, B 
NEXTI 
CASE ELSE *0.9<=R<1 な ら ば 画面 消去 
CLS 
END SELECT 
LOOP 





CASE は 、CASE IS ( 式 ) で 、 式 を 書く こと が で きま す 。 


上 の プロ グラ ム の よう に 、CASE IS <.3 で 選択 され れ ば 、 次 の CASE IS < .7 
で 選択 され な い の で 、0.3<=R<0.9 の よう な 選択 も 可能 に な り ま す 。 


また 、 例 えば =3,4.S,6,8.9 の よう に 7 が 抜け た 選択 は 、CASE 3 TO 6, 8 TO 9 
と 書き ます 。 
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2. 35 手続 き の 独立 


いよ いよ プロ グラ ム が 大 きく な っ て 、 次 第 に プロ グラ が 読み に くく な っ て きま し 
7Sjo 

そこ で 、 わ か りや すい よう に 書き 方 を 工夫 し まし ょ う 。 それに は 、 プ ログ ラム を 
その 働き の まとまり ご と に 独立 さき せる こと で す 。 独立 させ せ た プ ログ ラム の こと を サ 
ププ ロ シ ー ジ ャ (サブ の 手続 き ) と いい ます 。 そ れ に 対し て 、 親 の 手続 き を メイ ン 
プロ シー ジャ と いう こと が で きま す 。 


*QB2 35 1 サブ プ プ ロ シ ー ジ ャ の 利用 例 
DECLARE SUB ENMOYOU ) * 円 模様 の サ プ プ ロ シ ー ジ ャ を 使う と いう 
DECLARE SUB HAKOMOYOU () * 箱 模様 の サブ プロシージャ を 使う と いう 
DECLARE SUB MATIGAI () "間違い を 知ら せる サブ プロ シー ジャ を 使う と いう 
DO 

CLS 

PRINT "模様 を 選択 し て 番号 を 入力 し て くだ さい 。" 

INPUT "円 模様 :1 箱 模様 :2 終了 :E ": BANGOU5 

"BANGOU$ に 1 か 2 か E を 受け 入れ る 


回 固 還 
下 忠 忠 


CLS 
SELECT CASE BANGOU$ *BANGOU$ の 内 容 に よっ て 仕事 を する 
CASE "1" "BANGOU$ が "1" の 場合 の 仕事 円 模様 
ENMOYOU 
> サブ プ プ ロ シ ー ジ ャ の 名 前 ENMOYOU と すれ ば ENMOUYOU が 動く の で す 
CASE "2" "BANGOU$ が "2" の 場合 の 仕事 = 箱 模 様 
HAKOMOYOU 
CASE "E" "BANGOU$ が "E" の 場合 の 仕事 = 終了 
EXIT DO 
CASE ELSE *BANGOU$ が 1.2, 互 以外 の 場合 の 仕事 
MATIGAI 
END SELECT * 選 択 の 仕掛 の 終了 
LOOP 


SUB ENMOYOU * 円 模様 の サブ プ プ ロ シ ー ジ ャ 
FOR i = 1 TO400 STEP $ 
CIRCLE G。 )。 i / 2。i MOD7+1 


* 箱 模様 の サブ ププ ロ シ ー ジ ャ 
FOR i = 1 TO 400 STEP 2 
LINE G。 1)-G * 2。i * う )。i MOD7 + 1。B 





SUB MATIGAI * 番 号 間違い を 知ら せる サブ プロ シー ジャ 
PRINT "番号 違い で す 。" > 問 違 っ た 入力 を お 知ら せ す る 


BEEP: BEEP: BEEP * 克 告 音 を 3 回 鳴ら す 
END SUB 





最初 の DECLARE ス テー トメ ント は 、 入 力 す る 必要 が あり ませ ん 。 自動 的 に 生成 する 
よう に な っ て いま す 。 


表示 きれ ます 。 この間 に プロ グラ ム を 入力 し ます 。 メ イン や 他 の サブ プロ シー ジャ 


を 表示 する に は 、 を 押し な が ら [f・2] を 押し ます 。 

プロ シー ジャ (手続 き ) は 互い に 独立 し て お り 、 同 じ 名 前 の 変数 が あっ て も 影響 
し あう こと は あり ませ ん 。 同じ 名 前 の 変数 を 使っ て 、 容 易 に プロ グラ ミン グ が で き 
る よう に な っ て いま す 。 

サ プ プ ロ シ ー ジ ャ を 上 手 に 使う こと が 、 美 し くわ か りや すい プロ グラ ム を 作る た 
め の 第 1 歩 な の で す 。 





2. 36 手続 き 間 の 手紙 





手続 き の 名 前 を 書く だ け で 、 独 立 し た 手続 き の 機 能 を 容易 に 利用 で きる の で す が 、 

これ だ け で は 、 独 立 し た 手続 き に は 固定 され た デー タ に 基づい た 動作 以外 させ られ 
な く な っ て し まい ます 。 そこで 、 独 立 し た 手続 き に 対し て 注文 の 手紙 を 出し て 、 都 
合 よ く 動 作 す る よう 信頼 する こと が で きま す 。 


次 の 例 は 、 メ イン プロ シー ジャ が 、 模 様 を 変化 きせ る デー タ を サブ プロ シー ジャ 
ENMOYOU へ 送り 、ENMOYOU は その デー タ に 基づい た 円 模様 を 描い て か ら サ ププ ロ シ ー 
ジ ャ HAKOMOYOU へ デー タ を 送り 、HAKOMOYOU は その デー タ に 基づい た 箱 模様 を 描く よ 
うに な っ て いま す 。 






























*OB2_36_1 プロ シー ジャ 間 の デー タ の 手紙 
DECLARE SUB ENMOYOU(KIZAMI!, BAIRITU!) 
DECLARE SUB HAKOMOYOU (HAZIME!, KIZAMI!, BAIRITU!) 


CLS 
FOR I = $ TO100 STEP $ > 円 の 半径 を 変化 きせ る きざみ を 生成 する 
FOR J = .1 TO .9 STEP .2 
* 円 の 半径 を 変化 させ る 倍率 を 生成 する 
CLS * 画 面 消去 
ENMOYOU I, 了 ENMOYOU へ きざみ と 倍率 を 送る 
NEXT 了 
NEXT I 
END 
SUB ENMOYOU(KIZAMI, BAIRTTU) * サ ププ ブ プロシージャ ENMOYOU 
* き ざ み と 倍率 を 受け 取る 
FOR 1 = 1 TO 600 STEP KIZAMI * 円 の 中 心 の 座標 を 1 か ら 600 ま 
* で 等 間隔 の きざみ で 生成 する 
CIRCLE , 1), 1 * BAIRITU, 1 MOD7+ 1 * 円 を 描く 
HAKOMOYOU 1, KIZAMI / 2, BAIRITU / 3 "HAKOMOYOU へ 開始 位置 、 
* き ざ み 、 倍 率 を 送る 
NEXT I 
END SUB 


SUB HAKOMOYOU (HAZIME, KIZAMI, BAIRITUO "サブ ププ ロ シ ー ジ ャ HAKOMOYOU 
* 開 始 位置 、 き ざ み 、 倍 率 を 受け 取る 
FOR I = HAZIME TO HAZIME + 100 STEP KIZAMI 
* 箱 模様 を 描く 位置 を 生成 する 
LINE (1。 1D-((t + HAZIME) * BAIRITU, 

(T + HAZIME) * BAIRITU),I MOD7+ 1,B  " 箱 を 描く 

NEXT I 
END SUB 


ENMOYOU 1,J の TL.J は 、ENMOYOU へ 送る デー タ で す 。 (これ を 実 引数 と いい ます 。) 

ENMOYOU は この デー タ を 、SUB ENMOYOU(KIZAMLI, BAIRITU) の (KIZAMLI, BAIRITU) で 
受け 取り ます 。 (これ を 仮 引数 と いい ます 。) する と 、I の デー タ が KIZAMI へ 、J の 
デー タ が BAIRITU へ 送ら れ ま す 。ENMOYOU は 、 こ の 送ら れ た デー タ を 使っ て 動作 し ま 
宣 。 

ENMOYOU は 、HAKOMOYOU I, KIZAMI / 2, BAIRITU / 3 と し て 、 デ ー タ を HAKOMOYOU 
に 送り ます 。 

HAKOMOYOU は 、ENMOYOU の 1 を HAZIME に 、KIZAMI / 2 を KIZAMI へ 、 BAIRITU / 3 を 
BAIRITU へ 受け 取り 、 こ の デー タ を 使っ て 動作 し ます 。 

送り 側 の 実 引数 に は 、 変 数 名 、 式 、 数 値 の いずれ も 使用 で きま す 。 

変数 名 は 、 こ こ で は わか りや すい よう に メイ ン と サブ と で 同じ 変数 名 を 使用 し て 
いま す が 、 別 の 変数 と し て 取り 扱っ て お り 、 互 い に 独 立 し て いま す 。 

また 、 こ の 例 に は な い の で す が 、 サ ブ ププ ロ シ ー ジ ャ の 計算 結果 を メイ ン へ 送る こ 
貞和 な まま する 


ENMOYOU 1I, 了 


ーー ペー ペーーー 


SUB ENMOYOU(KIZAMI, BAIRITU) 


HAKOMOYOU I, KIZAMI / 2, BAIRITU / 3 


に ーー っ 二 


SUB HAKOMOYOU (HAZIME, KIZAMI, BAIRITU) : 
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半 
情 


の 


ニニ メーン ション 

EE ミー ミー ミー ミー ヌー S ミ コ ミ ユミ コミ トー 
アニ メー ショ ン の 技法 を 楽し みな が ら 学 び 
ゲー ム つ くり に 挑戦 し ます 。 





に 











3. 1 キャ ラク タ は 点 点 





アニ メー ショ ン を 作る に は 、 ま ず 、 動 か す た め の キャ ラク タ を 用 意 し ます 。 
あの 有名 な マリ オ の オジ サン を は じ め キ ャ ラク タ は すべ て 点 か ら で き て いま すか 
ら 、 キ ャ ラク タ 作 り に は 根気 が いり ます 。 さ ら に 、 キ ャ ラク タ の デザ イン が よく な 
けれ ば な り ま せん か ら 、 セ ンス を 必要 と し ます 。 


木の葉 の キャ ラク タ を 設計 し て み ま し た 。 こ れ を 画面 表示 する に は 、PSET ス テー 
トメ ント を 使い ます 。 


"QB3_1_1 アニ メ 1 
CLS 
PSET ($, 0O), 2 


PSET (6, O), 2 
PSET 7, O), 2 
PSET (8, O), 2 
以下 、 点 の 数 だ け PSET を 繰り 返す 





つら ぐい - こ コ の いい R いう トウ ルー 


ょ ーー 


し か し 、 点 の 数 だ け PSET を 繰り 返し て いた の で は 、 あ まり に も プロ グラ ム が 大 き 
く な りす ぎ ま す 。 そこで 、 少 し 工夫 し まし た 。 























?QB3_1_.2 アニ メ 2 


CLS 
FORY= 1 TO10 * 縦 方 向 の 座標 を 決め る 
FOR X = 1 TO16 * 横 方 向 の 座標 を 決め る 
READC * デ ー タ ( 色 番 号 ) を 読ん で 、C に 入れ る 
PSET ( 文 , Y), C * 点 を 描く 
NEXTX 
NEXT Y 
END 
DATA 0.,0.,0.,0,0,2.2.2.2.2,0,0,0,0.0.0 * 木 の 葉 の 色 番 号 の デー タ 


DATA 0,0,0,2.2.2.0,2.2.2.2.2.0.0,0.0 
DATA 0,0,2,.2.2.0,2.2.2.2.0,2.2.2.0,0 
DATA 0.2.2.2.0.2.2.2.2.0.2.2.2.2.2.0 
DATA 2,0,0,0,2.2.2.2.0.2.2.0,0.0,0,2 
DATA 0,2,2,.2,0,0,0,0,0,0.0,2.2.2.2.0 
DATA 0,0,2.2.2.2.0.2.2.2.2.2.2.2.0.0 
DATA 0.,0,2,2.2.2.2.0,.2.2.2.2.2.0.0.0 
DATA 0.,0,0,2.2.2.2.2.0,2.2.2.0,0,0,0 
DATA 0.0.0.0.0,2.2.2.2.2.0.0.0.0.0.0 


ー82 一 


READ ご は 、 プ ログ ラム の 中 に 書い て ある デー タ を 読む せ ス テー トメ ント で す 。 デ ー 
タ に は 、DATA と か いて あり ます 。 

0,2,0,0,2.2 の 中 の カン マ は 、 デ ー タ の 区 切り 記号 で す 。READ C で 区 切り と 区 切 
り の 間 の 一 つの デー タ を 読み 込ん で 、C と いう 変数 に 入れ る の で す 。 数字 は 色 番 号 
で 、0 は 黒色 、2 は 緑色 と いう こと で す 。 





9。 2 叶 ヤ アク ク を つく る コツ 





QB3_1. 2 の プロ グラ ム で も よい の で す が 、 木 の 葉 の 色 番 号 の デー タ が 少し 見 に く 
い の で 、 次 の よう に 改善 し て 、 キ ャ ラク タ を 入力 し や すく 分 りや すい よう 改善 し ま 
末 。 


*QB3_2 1 アニ メ 3 

CLS 

FOR Y = 1 TO10 * 縦 方 向 の 座標 を 決め る 
READ A$ 

* キ ャ ラク タ の デー タ を 1 行 分 読み 取っ て 変数 A$ に 入れ る 
FOR X = 1 TO16 * 横 方 向 の 座標 を 決め る 
PSET ( 文 , や ), VAL (MID$ (A$, 文 , 1)) * 点 を 描く 

NEXTX 

NEXTY 


22222 * 木 の 葉 の 色 番 号 の デー タ 
。。 222 2220 ぼ 2 。、 
DAPA 。。292.9229.222. 。 
DATA .222. 2222. 22222. 
TA の 、。。2202. 2 、。 の 
DATA . 
DATA 。。2222、2222222、 。 
DATA 。。22222.22222. 。。 
DATA 。。。22922.299、、。 、 
DATA レア ン ア アノ 





READ A$ は 、A$ と いう 変数 に 、DATA に 続く 1 行 分 の .……… 22222。。。 を すべ て 
読み 込む の で す 。 

A$ の よう に $ の マー ク が つい て いる 変数 は 、 文 字 型 変数 と いっ て 、 ア ルフ ァ ベ ッ ト 
も 数字 も 漢字 も すべ て 文字 と し て 読み 込ん で し まい ます 。 

A$="Quick BASIC"、A$=" 楽 し い ク イッ クベ ー シ ッ ク "、 AS$=".…22222.222.……" 
な ど と 、 文 字 列 を 記憶 で き 、 画 面 表 示 は 、PRINT A4$ で よい の で す 。 


A$ に 記憶 され た 文字 の 一 部 を 取り 出し て 使う こと も で きま す 。 取り 出す た め に は 、 
MID$ と いう 関数 を 道具 と し て 利用 し ます 。 た と えば 、A$ に は "Quick BASIC" と いう 文 
字 列 が 記憶 され て いて 、B$=MID$(A$,$.1) と すれ ば 、A$ の $ 文 字 目 か ら 1 文 字 分 の "k" 
が 、B$ に 記憶 きれ ます 。 


例 を 示し ます 。 


A$="Quick BASIC" B$=MID$(A$,7,3) 

A$ の 7 文字 目 か ら 3 文字 B$ の 中 は "BAS" 
A$="COMPUTER" B$=MID$(A$,1.4) 

A$ の 1 文字 目 か ら 4 文 字 B$ の 中 は "COMP" 
A$=".…22222.222.………" BS$=MID$(A$,X,1) 

A$ の X 文 字 目 か ら 1 文字 


X=5 な ら ば 、B$ の 中 は "2" 
な お 、 文 字 列 が 漢字 の 場合 は 、KMID$ と いう 関数 を 使い ます 。 
この よう に し て 、A4$ の 文字 列 の 中 か ら 1 文字 ずつ 取り 出す こと は で きま し た が 、 
"2" を 取り 出し て も これ は 文字 の 2 な の で 、 色 番号 と し て 利用 する た だ ため に は さら に こ 


れ を 数 値 の 2 に 変換 する 必要 が あり ます 。 


文字 を 数 値 に 変換 する に は 、VAL と いう 関数 を 使い ます 。 た と えば 、C=VAL("2") 
と すれ ば 、C に は 数 値 の 2 が 記憶 きれ ます 。 


例 を 示し ます 。 
A$="123" C=VAL(AS$) C の 中 は 、 数 値 の 123 
A$="6428" C=VAL(AS$) C の 中 は 、 数 値 の 6428 
A$="2" C=VAL(A$) C の 中 は 、 数 値 の 2 


と ころ が 、 葉 の キャ ラク タ の デー タ に は 、 ビ ピリオド "." が あり ます 。 これ は 数 値 で 
は な い の で 、VAL 関 数 は 、 読 み 込 み を 中 止 し ます 。 そ こ で 、 結 局 、 黒 の 色 番 号 の 0 
(ゼロ ) が 計算 きれ る わけ で す 。 


この よう に し て 、PSET ( 文 」Y), VAL (MID$ (A$, 文 」1)) の うち 、 
VAL (MID$ (AS$, 文 , 1)) が 、 色 番号 を 計算 し て いる の で す 。 


PSET ( 文 , Y).……. の (XX,Y) は 、 画 面 上 の 座標 で す 。 これ は 、 キ ャ ラク タ の デー タ 
の 位置 に 丁度 対応 し て いる の で 、 便 利 な の で す 。 


3. 3 魚 は 泳ぐ 


さて 、 い よい よ 、 魚 の キャ ラク タ を つく っ て 、 泳 が せま しょ う 。 
この プロ グラ ム は 、 魚 の キャ ラク タ を つく り 、 鋼 を 画面 中 央 の (300.200) の 位置 に 


描き 、 テ ン キ ー ボ ー ド の 4 を 押す と 、 魚 は 左 へ 、6 を 押す と 右 へ 、S0 ビ クセ ル 分 移動 
し ます 。 


その た め に 必要 と する 仕事 は 次 の 図 の と お り で す 。 


魚 を 画面 に 描く 
魚の キャ ラク タ を 画面 か ら 読み 取っ て 容器 へ 入れ る 
魚 を 消 3 


6 が 押さ れ た ら 右 の 位置 を 決め る 
魚 を 描く 


畔 測 S 塗 


斗 抽 ご さ 藩 





*QB3_3_1 アニ メ 4 魚の 移動 


DEFINT T,X-Y * 整 数 型 変数 名 を 決め る 
CLS * 画 面 消去 
TATE = 17: YOKO = 48 * キ ャ ラク タ の 縦横 の 大 き さ を 決め る 
FOR Y = 1 TOTATE > キャ ラク タ の デー タ を 読ん で 
* 画 面 に 表示 する 
READ A$ 


FOR メ = 1 TO YOKO0 
PSET (X, Y), VAL(MID$(A$, X, 1)) 
NEXT X 
NEXTY 
OOKISA = (4 + 4 * (YOKO + 7) \ 8) * TATE)\ 2 
* 画 面 か ら 読 み 取 っ た キャ ラク タ を 入れ る 容器 の 大 き さ を 計算 する 
DIM SAKANA(1 TO OOKISA) AS INTEGER > 画面 か ら 読 み 取 っ た キャ ラク タ を 


* 入 れる 容器 を つく る 
GET (1, 1)-(YOKO, TATE), SAKANA "キャ ラク タ を 画面 か ら 読み 取る 


文 三 300:Y マ =200 * 最 初 に 魚 を 表示 する 位置 を 決め る 


PUT ( 文 ,Y), SAKANA, XOR * 最 初 の 位置 へ 魚 を 表示 する 
DO * 繰 り 返 す 
K$ = INKEY$ * キ ー が 押さ れれ ば 1 文字 を K$ へ 入れ る 
IF K$ <> "THEN * キ ー が 押さ れ て いれ ば 
PUT ( 文 , Y), SAKANA, XOR * 魚 を 消し 
SELECT CASE K$ 
CASE "4" *4 が 押さ きれ て いれ ば 
= 文 - 30 *S0 ピ クセ モル 分 左 へ 
CASE "6" *6 が 押さ きれ て いれ ば 
メニ = メ +S0 *S0 ビ クセ ル 分 右 へ 
END SELECT 
PUT (X, Y), SAKANA, XOR * 新 し い 位置 へ 魚 を 描く 


33333 
... 333333. 3333333333333333333333333333333333333. 
- 333333333. 333333333333333333333333333333333333. 


33333333333. 3333333333333333333333333333333333. . 
333. . . .33333. 333222222222222222222222222233333. . 
333. . . .33333. 3333555555555555555555555533333333. 
33333333333. 33333333555555555553333333333333333. 
.3333333333333333333333333333333 333333 
...3333333. 33. . . 33333333333333 





アニ メ は 、 画 面 か ら 読 み 取 っ た キャ ラク タ の 表示 と 消去 を 繰り 返す か こと に よっ て 
動き ます 。 


まず 、 画 面 か ら 読 み 取 っ た キャ ラク タ を 入れ て お く 変 数 の 大 き さ を 計算 し ます 。 
この 計算 式 は 次 の と お り で す 。 

OOKISA= (4 +4* (CYOKO+ 7) \ 8) * TATE) \ 2 

キャ ラク タ の 縦 と 横 の 幅 (ビク セル の 数 ) を この 計算 式 の TATE と YOKO に セッ ト す 
れ ば 計算 で きま す 。 


次 に 、 キ ャ ラク タ を 入れ る 容器 を つく り ま す 。 
DIM SAKANA(1 TO OOKISA) AS INTEGER 


ー つ の 変数 だ け で は 入ら な いく らい 大 量 の デー タ な の で 、SAKANA と いう 整数 の 変 
数 (AS INETGER) を OOKISA 分 の 数 だ け 用 意 し ます 。 

DIM (DIMESION の 略 ) は 、 大 きき さと か 次 元 と いう 意味 で す 。 

そこ で 、DIM SAKANA(1 TO OOKISA) AS INTEGER は 、 「 大 き さ は 、SAKANA の 名 前 で 
整数 型 の 変数 を 1 番 か ら OOKISA 番 まで の 番号 を 付け て 用 意 し ます 」 と いう 意味 で す 。 
一 般 に この よう な 変数 の 設定 の 仕方 を 、「 配 列 ] と いい ます 。 

配列 は 、 例 えば 、SAKANA(1),SAKANA(2).…… の よう に 、 番 号 が 付い た 変数 と し て 、 
取り 扱う こと が で きま す 。 


mm ee ーーSisassoefesseaesseseeeeeaes っ 
SAKANOU 」 SAKANAGI | SAKANAG 上 上 上 上 グ SAKANAOOKSAI 」 


次 に 、 画 面 か ら キ ャ ラク タ を この 容器 へ 読み 取っ て 入れ ます 。 
GET (1, 1)-(YOKO, TATE), SAKANA 


GET は 得る と いう 意味 で すか ら 、 画 面 の (1, 1)-(YOKO, TATE) の 範囲 の 画面 を 、 
SAKANA と いう 変数 に 取り 入れ る と いう こと で す 。 SAKANA は 、 番 号 が 付い た 変数 で す 
が 、 こ こ で は 番号 を 付け な いで 使う よう に な っ て いま す 。 


これ で 、 準 備 は 終了 し まし た 。 い よい よ 、 ア ニ メ を 描く 仕事 で す 。 

SAKANA の 入っ て いる キャ ラク タ は 、PUT ( 文 ,Y), SAKANA, XOR で 描き ます 。PUT は 
置く と いう 意味 で すか ら 、 画 面 上 の (X,Y) の 位置 へ SAKANA の キャ ラク タ を 置く (描く ) 
どう 生 を 補 す 。 


さて 、XOR は 何で し ょ うか 。 これ は 画面 の 表示 の 状態 と 今 か ら 描 こう と し て いる も 
の と を 較べ て 、 排 他 的 論理 和 で 調整 し て 描く と いう こと で す 。xXOR の 外 に 、PSET な ど 
ある の で す が 、XOR を 利用 する 理由 は 、 も う 一 度 同じ 位置 に 同じ 方 法 で 描く と キャ ラ 
クタ が 消え る か ら で す 。 こ れ は アニ メ を 描く に は 都合 の よい 機能 で す 。 そ こ で 、 キ 
ャ ラク タ を 消す 場合 も 同じ ステ ー ト メン ト を 使え る の で す 。 


う 。 4 


画面 内 を 泳ぐ 


前 節 の アニ メ 4 の プロ グラ ム を 実行 する と 、 す ぐに 「 引 数 が 許さ れる 範囲 で は あ 
り ま せん (ERR=5) 」 と エラ ー 表 示 が で ます 。 そ れ は 、 画 面 の 両端 に キャ ラク タ を 移 
動 し た 場合 の こと を 考え て いな か っ た か ら で す 。 

そこ で 今度 は 、 テ ン キ ー を 利用 し て 上 下 左右 と 斜め に 移動 で きる よう に し 、 同 時 
に 、 キ ャ ラク タ が 画面 の 上 下 左右 を は み 出 な いよ うに 改善 し ます 。 こ の プロ グラ ム 
の 構造 は 次 の と お り で す 。 


婁 憶 注 | 


EE 


ET 


魚 を 画面 に 描く 


キー が 押さ れ た ら 


魚の 現在 位置 を 保存 する 


4 が 押さ れ た ら 左 の 位置 を 決め る 
6 が 押さ れ た ら 右 の 位置 を 決め る 
8 が 押さ れ た ら 上 の 位置 を 決め る 
2 が 押さ れ た ら 下 の 位置 を 決め る 
7 が 押さ れ た ら 左 上 の 位置 を 決め る 
3 が 押さ れ た ら 右 下 の 位 置 を 決め る 
9 が 押さ れ た ら 右 上 の 位置 を 決め る 
1 が 押さ れ た ら 左 下 の 位置 を 決め る 


新しい 位置 が 画面 内 に あれ ば 
保存 し て いた 現在 位置 の 魚 を 消す 
新しい 位置 に 魚 を 描く 


新しい 位置 が 画面 の 外 に あれ ば 
保存 し て いた 古い 魚の 位置 を 取り 出し て 
新しい 魚の 位置 と する 













*QB3_4 1 アニ メ 5 人 鋼 が 画面 の 範囲 内 を 移動 する 


DEFINT T, X-Y * 整数 型 変数 名 を 決め る 

CLS * 画面 消去 

TATE = 17: YOKO = 48 * キ ャ ラク タ の 縦横 の 大 き さ を 決め る 

FOR Y = 1 TOTATE * キ ャ ラク タ の デー タ を 読ん で 画面 に 表示 する 
READ A$ 


FOR メ = 1 TO YOKO 
PSET ( 文 . や ), VAL(MID$(A$, 文 , 1)) 
NEXT X 
NEXTY 
OOKISA =(4 +4 * (YOKO+ 7) \ 8) * TATE)\ 2 
"画面 か ら 読み 取っ た キャ ラク タ を 入れ る 容器 の 大 き さ を 計算 する 
DIM SAKANA(1 TO OOKISA) AS INTEGER 
"画面 か ら 読 み 取 っ た キャ ラク タ を 入れ る 容器 を 作る 


GET (1, 1)-(YOKO, TATE), SAKANA * キ ャ ラク タ を 画面 か ら 読み 取る 
CLS * 画 面 消去 
メメ = 300: Y=200 * 最 初 に 魚 を 表示 する 位置 を 決め る 
PUT ( 文 ,Y), SAKANA, XOR * 最 初 の 位置 へ 魚 を 表示 する 
DO * 繰 り 返 す 
K$ = INKEY$ * キ ー が 押さ れれ ば 1 文字 を K$ へ 入れ る 
IF K$ <> "" THEN * キ ー が 押さ きれ て いれ ば 


HX= 誠 :HY= ニ Y 
> 魚の 現在 位置 を HX, HY に 保管 し て お く 


S=5S0 * 1 回 に 移動 する ピク セル 数 の セッ ト 
SELECT CASE K$ 
CASE "4" *4 が 押さ きれ て いれ ば 
= ニ 災 。=9 * 左 へ 
CASE "6" *6 が 押さ れ て いれ ば 
文 = ニ メ +S * 右 へ 
CASE "8" ?8 が 押さ きれ て いれ ば 
Y マ =Y-S * 色 ew 
CASB "2" *2 う が 押さ きれ て いれ ば 
Y ニ テニ Y+S > 下 へ へ 
CASE "7" 7 が 押さ きれ て いれ ば 
メ = ニ X- S:Y ヤ =Y-S Ri 
CASE "3" *3 が 押さ きれ て いれ ば 
文 ニ 文 + 上 S: ヤ マニ Y+S * 右 下 へ 
CASE "9" * ぐ が 押さ れ て いれ ば 
文 三文 +S:Y マ = ニ Y-S * 左 上 へ 
CASE "1" 1 が 押さ れ て いれ ば 
文 三文 - S: ヤ = ニ Y+S * 右 下 へ 
END SELECT 
IF ( ズ >=O) AND(Y >= O) AND (XX <= 639 - YOKO) AND 
(Y <= 399 - TATE) THEN * 魚 の 位置 が 画面 の 範囲 内 な ら ば 
PUT (HXX, HY), SAKANA, XOR * 魚 を 消す 
PUT ( 文 」 や), SAKANA, XOR * 新 し い 位置 へ 魚 を 描く 
ELSE * 魚 の 位置 が 画面 の 範囲 外 な の で 


メニ HX:Y マ =HY > 範囲 内 に 戻す 


(以下 の 魚の キャ ラク タ の デー タ は 省略 ) 





魚の 左右 の 移動 は X に 移動 数 (S=s0) を 加減 し 、 上 下 の 移 動 は Y に 移動 数 (S=S0) 
を 加減 し て 行い 、 ま た 、 斜 め の 移 動 は X と Y に 同時 に 移動 数 (S=50) を 加減 し て 行っ 


て の ます 。 ニン キー の 押し 方 画面 上 の 座標 の 動き 
X=X-S X=X+S 


りら キ 本 Y=Y-S Y=Y-S Y=Y. 
回 | 

な ゴ 4 | | 6 上 X=X.$ X=X+S 

沖 T ま 右 下 


画面 の 範囲 の 内 外 の 判定 は せ 、 キ ャ ラク タ の 位置 X と Y の 値 で 行っ て いま す が 、 キ ャ 
ラク タ に は 厚み が ある の で 、 画 面 の 右 と 下 に つい て は TATE と YOKO を 減じ し てい ます 。 


YY+S  Y=Y+S Y=Y+S 
X=X-S X=X+S 


IF (X >= O) AND (Y >= O) AND (X <= 639 - YOKO) AND (Y <= 399 - TATE) THEN 


AND は 、X と Y の それ ぞ れ の 条件 が 同時 に 成立 する こと を 条件 と し て いる こと で す 。 
ここ で は 「CX>=O) 及 び CY >=O) 及 び (X <= 639 - YOKO) 及 び (Y <= 399 - TATE) 
が 同時 に 成立 する ( 魚 が 画面 の 範囲 内 に ある ) な ら ば ・・ (通常 の 動作 を する ) 」 
と いう こと に な り ま す 。 

すぐ 次 の ELSE は 、 条 件 に 合わ な い ( 魚 が 画面 の 範囲 外 に ある ) 場合 の 動作 ( 以 
前 に 保存 し て いた キャ ラク タ の 位置 の デー タ を 元 に 戻す ) を 指示 し て いま す 。 


画面 の 範囲 内 外 の 判定 


X<=639-YOKO 
9 


Y<=399-TATE 
N 











3. 5 向き を 変え る 鋼 


すでに 気が付い て いる と 思い ます が 、 魚 が 後向き に 移動 し ます ね 。 そ こ で 、 今 度 
は 右向き の 魚の キャ ラク タ も 用 意 し て 、 必 要 に 応じ て 左向き の 魚 と 右向き の 魚 を 使 
い 分 ける よう に し まし ょ う 。 プ ログ ラム の 構造 は 次 の と お り で す 。 


魚の キャ ラク タ を 入れ る 容器 の 大 き さ を 計算 する 
左向き と 右向き の 魚の キャ ラク タ を 入れ る 容器 を つく る 


左向き と 右向き の 魚の キャ ラク タ を 画面 か ら 読 み 取 っ て 容器 へ 入れ る 


左向き と メモ し て 、 左 向き の 魚 を 最初 の 位置 に 描く 


左向き と 右向き の 魚 を 画面 に 描く 
ンプ B8 


に NE: 
末 科 | 


ロ 
キー が 押さ れ た ら 1 文字 を 取っ て お く 
キー が 押さ れ た ら 


は 寺 ご 紗 


魚の 現在 位置 を 保存 する 
押さ れ た キー に よっ て 次 の 新しい 位置 を 計算 する 
新しい 位置 が 画面 内 に あれ ば 


メモ が 左向き な ら ば 左向き の 魚 を 消 
メモ が 右向き な ら ば 右向き の 魚 を 消 3 


新しい 位置 が 左 に あれ ば 左向き の 魚 を 描き 
新 し い 位置 が 右 に あれ ば 右向き の 魚 を 描く 
新しい 位置 が 同じ な ら ば メモ に より 

左向き か 右向き の 魚 を 描く 


新しい 位置 が 画面 の 外 に あれ ば 
保存 し て いた 現在 位置 を 取り 出し て 
新しい 魚の 位置 と する 









*QB3_S_ 1 アニ メ 6 魚の 向き を 変え る 


DEFINT HLM,O,S-U,X-Y * 整数 型 変数 名 を 決め る 
CLS * 画 面 消 去 
TATE = 17: YOKO = 48 * キ ャ ラク タ の 縦横 の 大 き さ を 決め る 
FOR Y = 1 TO TATE "キャラ クタ の デー タ を 読ん で 画面 に 表示 する 
READ A$ 
FOR X = 1 TO YOKO 
PSET ( 文 , や), VAL(MID$(A$, 文 , 1)) * 左 向き の 魚 を 描く 
PSET (YOKO - + 1, ヤ + TATE), VAL(MID$(A$, , 1)) 
* 右 向き の 魚 を 描く 


NEXT X 


NEXTY 
OOKISA = (4 +4 * ((YOKO+ 7) \ 8) * TATE)\ 2 

* 画 面 か ら 読 み 取 っ た キャ ラク タ を 入れ る 容器 の 大 き さ を 計算 する 
DIM SAKANA(1 TO OOKISA) AS INTEGER "左向き の キャ ラク タ を 入れ る 容器 を 作る 
DIM SAKANA2(1 TO OOKISA) AS INTEGER "右向き の キャ ラク タ を 入れ る 容器 を 作る 
GET (1, 1)-(YOKO, TATE), SAKANA * 左 向き の キャ ラク タ を 画面 か ら 読 み 取る 
GET (1,。 1 + TATE)-(YOKO, TATE * 2), SAKANA2 

* 右向き の キャ ラク タ を 画面 か ら 読み 取る 


CLS * 画 面 消去 
文 = 300:Y マ =200 * 最 初 に 魚 を 表示 する 位置 を 決め る 
MUKI$ = "HIDARI" * 最 初 の 向き を メモ し て お く 
HIDARI=0 * 移 動 範囲 の 画面 の 左端 
MIOI = 639 - YOKO * 移 動 範 囲 の 画面 の 右端 
UE=0 * 移 動 範 囲 の 画面 の 上 端 
SITA = 399 - TATE * 移 動 範 囲 の 画面 の 下端 
PUT ( 文 , Y), SAKANA, XOR * 最 初 の 位置 へ 魚 を 表示 する 
DO * 繰 り 返 す 
K$ = INKEY$ > キー が 押さ れれ ば 1 文字 を K$ へ 入れ る 
IF KS$ <> "" THEN * キ ー が 押さ きれ て いれ ば 
HX= 文 :HY=Y * 魚 の 現在 位置 を HX, HY に 保管 する 
S=5S0 > ] 回 に 移動 する ピク セル 数 を セッ ト 
SELECT CASE K$ 
CASE "4" ?4 が 押さ きれ て いれ ば 
文 三文 - S * 左 へ 
(前 節 の アニ メ 5 の プロ グラ ム に 同じ な の で 一 部 省略 し ます 。) 
CASE "1" 1 が 押さ きれ て いれ ば 
= ニ 文 - S:Y マ = ニ Y+S * 右 下 へ 
END SELECT 
IF (XX >= HIDART) AND (Y >= UE) AND (XX <= MIGT) AND 
(Y <= SITA) THEN * 魚 の 位置 が 画面 の 範囲 内 な ら ば 
SELECT CASE MUKI$ 
CASE "HIDARI" > 左向き な ら ば 
PUT (HX, HY), SAKANA, XOR * 左 向き の 魚 を 消す 
CASE "MIGI" > 右向き な ら ば 
PUT (H 文 , HY), SAKANA2, XOR > 右向き の 魚 を 消す 
END SELECT 
SELECT CASE X 
CASEIS <RX * 左 へ 移動 な ら ば 
MUKIS$ = "HIDARI" *HIDARI と メモ レ 
PUT ( 文 , や ), SAKANA, XOR * 新 し い 位置 へ 
* 左 向き の 魚 を 描く 
CASE IS > RX * 右 へ 移動 な ら ば 
MUKI$ = "MIGI" YMIGI と メモ し レ 
PUT ( 文 , Y), SAKANA2, XOR * 新 し い 位置 へ 
> 右向き の 魚 を 描く 
CASE IS =RX 移動 し な いな ら ば 
SLECT CASE MUKI$ 
CASE "HIDARI" > 現在 が 左向き な ら ば 


PUT ( 文 . Y), SAKANA,XOR "左向き の 魚 を 描き 


"現在 が 右向き な ら ば 


CASE "MIOI" 
PUT ( 文 , ヤ ), SAKANA2,XOR 右向き の 魚 を 描く 
END SELECT 
END SELECT 
ELSE > 魚の 位置 が 画面 の 範囲 外 な の で 
メニ = ニ HX:Y=HY * 範 囲 内 に 戻す 
END IF 
END IF 
LOOP 
END 


(以下 の 魚の キャ ラク タ の デー タ を 省略 し ます 。) 





左向き と 右向き の 魚の キャ ラク タ を 同時 に 表示 し 、 左 向き を SAKANA へ 、 右 向き を 


SAKANA2 へ 読み 込む せよ うに し まし た 。 
現在 どちら の キャ ラク タ を 使用 し レ し て いる か 分 る よう に 、MUKI$ と いう メモ を 用 意 し 


て いま す 。 
キャ ラク タ を 消去 する と き は 、 こ の メモ の 向き の キャ ラク タ を PUT し ます 。 ま た 、 


現在 の 位置 牙 と 新しい 位置 X と を 比較 し て 、 移 動 す る 方 向 に よっ て キャ ラク タ を 使い 
分 ける よう に な っ て いま す 。 


左向き 右向き の 選択 


X>HX な ら ば 
X<HX な ら ば 





ー94 一 


3. 6 エサ を 与え る 


魚 が で きま し た の で 、 今 度 は 魚 に エサ を 与え た いと 思い ます 。 ま ず は じ め に 、 1 
個 の エサ を 与え る プロ グラ ム を つく り ま す 。 プ ログ ラム の 構造 は 次 の と お り で す 。 


エサ の キャ ラク タ を 画面 か ら 読み 取っ て 容器 へ 入れ る 
次 の 位置 が 画面 の 下 の 範 囲 外 な ら ば 

画面 の 一 番 上 の 位置 と する 
次 の 位置 が 画面 の 左右 の 範囲 外 な ら ば 

保存 し て いた 位置 を 次 の 位置 と する 


次 の 位置 が 画面 の 範囲 内 な ら ば 
現在 の エサ を 消去 し 、 次 の 位置 へ 表示 する 


edTY キ h 


は 記さ 状 





QB3_6_1 "アニ メ 7 エサ を 与え る 


DEFINT X-Y * 整数 型 変数 の 設定 

RANDOMIZE TIMER * 乱 数 系 列 の 設定 

CLS * 画 面 消去 

FORY= 1 TOS * エ サ の キャ ラク タ を 描く 
READ A$ 


FOR メ = 1 TOS 
PSET ( 文 , Y), VAL(MID$(A$, 文 , 1)) 
NEXTX 
NEXTY 
OOKISA = ミ (4+4* (5+ フ 7)\8)*S⑤)\2 
*? エ サ の キャ ラク タ を 入れ る 容器 の 大 き さ を 計算 する 
DIM ESA(1 TO OOKISA) AS INTEGER "エサ の キャ ラク タ を 入れ る 容器 を 作る 


GET (1, 1)-($, $), ESA > エサ を 読み 取っ て 容器 へ 入れ る 
CLS * 画 面 消去 
メニ 300: マ =0 * 最 初 の 表示 位置 


PUT ( 文 , や ), ESA, XOR * 最初 の 表示 
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DO "繰り 返す 


HX= 文 : HY=Y * 現 在 の 位置 を 保存 する 

文 = ニ メ +(RND - .$) * 50 * 次 の 位置 を 計算 する 

ヤマ = ニ Y+RND* 50 * 次 の 位置 を 計算 する 

ITF Y> 394 THEN * 次 の 位置 が 画面 下 の 外 な ら ば 
Y=0 * 画 面 の 一 番 上 へ 

END IF 

IF ( ズ <O) OR (> 634) THEN * 画 面 の 両端 の 外 な ら ば 
Y マ = ニ HY: メ =RX * 保 存 し て いた 位置 を 次 の 位置 に 戻す 

ELSE * 画 面 の 範囲 内 な ら ば 
PUT (HX, HY), ESA, XOR * 現 在 の エサ を 消去 する 
PUT ( 文 , や )。 ESA, XOR * 次 の エサ を 描く 


"エサ の キャ ラク タ の デー タ 





X = X + (RND - 0.$) * 50 は 、 エ サ の 次 の 横 位置 の 計算 で す 。RND は 乱数 で 0 と 1 
の 間 の 一 様 乱数 を の で 、RND * 50 は 、-0.5 か ら +0.$ の 間 の 数 に な り ま す 。 こ れ に S$0 
を 乗 ず る の で 、 結 局 左右 に 22 ビ クセ ル の 範囲 で 移動 する こと に な り ま す 。 

また 、Y=Y+RND*30 の 計算 式 は 、 下 の 方 に 向かっ て 0 か ら 50 ビ クセ モル の 範囲 
で 移動 する 位置 を 計算 し ます 。 


Y=Y+RND*50 
Y は 0 か ら 50 の 範囲 で 増加 


O 


X+(RND-0.5)*50 
X は -25 か ら +25 の 範囲 で 増減 





き 。 7 だ くき ん の エサ 


だ っ た 1 個 の エサ で は 魚 は 生存 で きま せん か ら 、 だ た くさ ん の エサ を 与え る よう 改 
区 し ます 。 前 節 の プロ グラ ム を 1 0 個 繰 り 返 し て は 冗長 すぎ る の で 、 工 夫 し まし た 。 
プロ グラ ム の 構造 は 次 の と お り で す 。 
エサ の 現在 位置 を 保存 する 
次 の 位置 を 計算 する 
次 の 位置 が 画面 下 の 外 な ら ば 
次 の 位置 が 画 























画面 の 一 番 上 の 位置 と する 


面 の 左右 の 範囲 外 な ら ば 
保存 し て いた 位置 を 次 の 位置 と する 


次 の 位置 が 範囲 内 な ら ば 、 
現在 の エサ を 消去 し 、 次 の 位置 へ 表示 する 












DECLARE SUB ESAMAKI (ESA%O, 双 %, Y%, HX%, HY%) 
ッ >? アニメ 8 だ くさ ん の エサ を 与え る 


DEFINT H-I, X-Y * 整 数 型 変数 の 設定 

RANDOMIZE TIMER * 逢 数 系 列 の 設定 

CLS * 画 面 消去 

FORY= 1TOS > エサ の キャ ラク タ を 画面 に 描く 
READ A$ 


FOR メ = 1 TOS 
PSET ( 文 」Y)。 VAL(MID$(A$, 文 , 1)) 
NEXT X 
NEXTY 
OOKISA = ミ (4+ エ 4* ネ (CS +7)\8)*S)\2 
* エ サ の キャ ラク タ の 容器 の 大 き さ を 計算 する 


DIM ESA(1 TO OOKISA) AS INTEGER * エ サ の キャ ラク タ の 容器 を 作る 
GET (1, 1)-($, $), ESA * 画 面 の キャ ラク タ を 読み 取っ て 容器 に 入れ る 
CLS * 画 面 消去 
DIM 文 (1 TO 10),Y(1 TO 10) *10 個 の エサ の 次 の 座標 位置 の 容器 を 作る 
DIM HX(1 TO 10),HY(1 TO 10) *10 個 の エサ の 現在 の 座標 位置 の 容器 を 作る 
FOR I = 1 TO10 *10 個 の エサ の 最初 の 座標 位置 を 設定 し て 表示 
文 ①) = エ *60 
Y(⑪) =0 
PUT (<(①), Y(①D), ESA, XOR 
NEXT I 
DO * 繰 り 返 す 
FOR TI = 1 TO10 *10 個 の エサ を 繰り 返す 


ESAMAKI ESAO), 文 ①), Y①), HX①, HY①) 


* エ サ を まく サブ プロ シー ジャ を 使う 
NEXT I 


LOOP 
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"エサ の キャ ラク タ の デー タ 


DEFINT ELH,X-Y 
SUB ESAMAKI (ESAO), 叉 , Y, H 文 , HY) * エ サ を まく サ プ プ ロ シ ー ジ ャ 
HX=X:HY=Y * 現 在 位置 を 保存 する 
文 ニ = 文 (RND - .$) * S0 * 新 し い 横 位置 の 計算 


ヤマ =Y+RND* 50 * 新 し い 縦 位置 の 計算 

IF Y> 394 THEN * 画 面 下 の 範囲 外 な ら ば 
b 信 一 和 0) * 一 番 上 の 位置 へ 

END 正 

IF ( 文 <0) OR ( ズ > 634) THEN 画面 の 左右 の 範囲 の 外 な ら ば 
Y マ =HY: メ =HX "保存 し て いた 現在 位置 を 次 の 位置 と する 

ELSE 画面 の 範囲 内 な ら ば 
PUT (HX, HY), ESA, XOR * 現 在 位置 の エサ を 消し 
PUT (区 , Y), ESA, XOR * 次 の 位置 の エサ を 描く 

END 正 

END SUB 





前 節 の プロ グラ ム で は 、X、Y は 次 の 位置 の 座標 、 臣 、HY は 現在 位置 の 座標 の 変数 
で し た 。 そこ で 、10 個 の エサ を 取り 扱う 場合 は これ を 10 個 分 用 意 す る 必要 が あり ま 
す 。 そ れ が 、DrIM X(1 TO 10), Y(1 TO 10) と DIM HX(1 TO 10), HY(1 TO 10) で す 。 
これ は 、 文 (1), 文 ②).… 文 (10) と いう よう に 番号 を 付け て 取り 扱う こと が で きる の で 、 
FOR.…NEXT で I を 1 か ら 10 ま で 変化 させ れ ば 、 能 率 的 に 仕事 が で きる の で す 。 


次 に 、10 個 それ ぞ れ の エサ に つい て 、 エ サ を 動か す ササ ププ ロ シ ー ジ ャ を 使っ て 動 
作 さ きせ ます 。 サ ププ ロ シ ー ジ ャ は 独立 し て いる の で 、 デ ー タ を 渡し て 動作 きせ 、 ま 
た 、 処 理 結果 の デー タ は 逆 に 返し て くる よう に な っ て いま す 。 


1 番目 の デー タ を 送っ て 処理 きせ る ESAMAKI ESA(), ①), Y(TD, HX①), HY(①) 
1 番目 の デー タ を 受け 取っ て エサ を まく SUB ESAMAKI (ESAO, X, Y, RX, HY) 


処理 が 終る と 結果 の デー タ を /// 


{番目 の デー タ と し て 返す ESAMAKI ESAO, ①), Y(①D), HX(D, HY() 
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3. 8 ゲー ム に 挑戦 


ゲーム 作り の 材料 が 揃い まし た 。 魚 を 泳 が す プロ グラ ム と エサ を 与え る プロ グラ 
ム を 組み 合せ る と ゲー ム が で きま す 。 ゲ ダー ム の プロ グラ ム の 構造 は 次 の と お り で す 。 


魚の キャ ラク タ の 準備 を する 
エサ の キャ ラク タ の 準備 を する 


魚 と 10 個 の エサ を 最初 の 位置 に 描く 


エサ を 動か す 


キー が 押さ れ た ら 魚 を 動か す 
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森 < r く に 
10 個 エサ が 鋼 の 口 の 近く に 位置 し た ら 
り ト 線 り 返す 得点 を 10 点 加え る 
す エサ を 消し て 、 画 面 の 一 番 上 に エサ を 表示 する 


ゲー ム 時 間 ( 秒 数 ) と 得点 を 表示 する 


ゲー ム 時 間 が 6 0 秒 に な っ た ら ゲ ー ム を 終了 する 





DECLARE SUB ESAMAKI (ESA%0, X%, Y%, HX%, HY%) 
>? アニメ 9 魚 が エ サ を 食べ る ゲー ム 


DEFINT H-J, M, 0, S-U, X.-Y * 整数 型 変数 名 を 決め る 
RANDOMIZE TIMER * 乱 数 系 列 を 設定 する 
TIg& = TIMER * 時 間 を セッ ト す る 
TEN = 0 > 点数 を 0 と する 
CLS * 画 面 消去 
TATE = 17: YOKO = 48 > キャ ラク タ の 縦横 の 大 き さ を 決め る 
FOR Y = 1 TOTATE ? キ ャ ラク タ の デー タ を 読ん で 画面 に 表示 する 
READ A$ 
FOR メ = 1 TO YOKO 
PSET ( 文 ,Y), VAL(MID$(A$, 文 , 1)) * 左 向き の 魚 を 描く 
PSET (YOKO - + 1, マ + TATE), YAL(MID$(A$, 文 , 1)) 
> 右向き の 魚 を 描く 
NEXT X 
NEXTY 


OOKISA = (4 +4* ((YOKO+ 7) \ 8) * TATE)\ 2 
* 画 面 か ら 読み 取 っ た キャ ラク タ を 入れ る 容器 の 大 き さ を 計算 する 
DIM SAKANA(1 TO OOKISA) AS INTEGER "左向き の キャ ラク タ を 入れ る 容器 を 作る 
DIM SAKANA2(1 TO OOKISA) AS INTEGER "右向き の キャ ラク タ を 入れ る 容器 を 作る 
GET (1, 1)-(YOKO, TATE), SAKANA * 左 向き の キャ ラク タ を 画面 か ら 読 み 取 る 
GET (1, 1 + TATE)-(YOKO, TATE * 2), SAKANA2 
* 右 向き の キャ ラク タ を 画面 か ら 読 み 取る 
CLS * 画 面 消去 


上 99 - 


MUKI$ = "HIDARI" * 現 在 の 向き を メモ し て お く 


HIDARI=0 * 移 動 範囲 の 画面 の 左端 
MIG1 = 639 - YOKO * 移 動 範囲 の 画面 の 右端 
UE=0 * 移 動 範囲 の 画面 の 上 端 
SITA = 399 - TATE * 移 動 範囲 の 画面 の 下端 
FORY=1TOS * エ サ を 描く 

READ A$ 


FOR メ = 1 TOS 
PSET ( 文 , Y), VAL(MID$(A$, 文 , 1)) 
NEXT XX 
NEXT Y 
OOKISA = (4 +4*(S +7)\8)*S)\2 
> エサ の キャ ラク タ の デー タ の 容器 の 大 き さ の 計算 


DIM ESA(1 TO OOKISA) AS INTEGER > エサ の キャ ラク タ の デー タ の 容器 を 作る 
GET (1, 1)-($, $), ESA * エ サ の キャ ラク タ を 読み 取る 
CLS * 画 面 消去 
DIM 文 (1 TO 10), Y(1 TO 10) *10 個 の エサ の 次 の 座標 位置 の 容器 を 作る 
DIM HX(1 TO 10), HY(1 TO 10) *10 個 の エサ の 現在 の 座標 位置 の 容器 を 作る 
FOR I = 1 TO10 *10 個 の エサ の 最初 の 座標 位置 を 決め て 表示 
文 ①) =I*60 
Y①) =0 
PUT (X(①), Y①), ESA, XOR 
NEXT 1 
= 300: Y=200 * 最 初 に 魚 を 表示 する 位置 を 決め る 
PUT ( 文 ,Y), SAKANA, XOR * 最 初 の 位置 へ 魚 を 表示 する 
DO * 繰 り 返 す 
FOR I = 1 TO10 ?10 個 の エサ を 繰り 返す 


ESAMAKI ESA(), 丸 ①)。 Y①), 廿 丈 ①),。 HYO) 
"エサ を まく サ プ プ ロ シ ー ジ ャ を 使う 


K$ = INKEY$ > キー が 押さ れれ ば 1 文字 を K$ へ 入れ る 
IF K$ <> "THEN > キー が 押さ きれ て いれ ば 
HX= 文 :HY=Y > 魚の 現在 位置 を 区 , HY に 保管 し て お く 
S =20 * ] 回 に 移動 する ビク セル 数 を セ モット す る 
SELECT CASE K$ 
CASE "4" ?4 が 押さ れ て いれ ば 
完 呈 先 = き ゃ な みぃ 
CASE "6" *6 が 押さ きれ て いれ ば 
メニ = ニ メ X+S * 吉 へ 、 
CASE "8" *8 が 押さ きれ て いれ ば 
Y マ = テ Y-S ん 世 へ 
CASE "2" * う が 押さ れ て いれ ば 
ヤマ ニヤ Y+S 下さ 
CASE "7" が 押さ きれ て いれ ば 
=- S:Y マ = ニ Y-S * 左 上 へ 
CASE "3" *3 う が 押さ れ て いれ ば 
文 三文 上 S: マニ Y+S 1: 尊 平 へ 
CASE "9" * ゥ が 押さ きれ て いれ ば 
文 三文 上 S: マ = ニ Y-S * 左 上 へ 


CASE "1" 1 が 押さ れ て いれ ば 
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文 ニ 文 - S: マ ニ Y+S * 右 下 へ 


END SELECT 
IF ( ズ >= HIDARI) AND (Y >= UE) AND (< <= MIGI) AND 
(Y <= SITA) THEN * 魚 の 位置 が 画面 の 範囲 内 な ら ば 
SELECT CASE MUKI$ 
CASE "HIDARI" * 左 向き な ら ば 
PUT (HX, HY), SAKANA, XOR * 左 向き の 魚 を 消す 
CASE "MIOI" * 右 向き な ら ば 
PUT (HX, HY), SAKANA2, XOR * 右向き の 魚 を 消す 
END SELECT 
SELECT CASE X 
CASE IS <RX * 左 へ 移動 を な ら ば 
MUKI$ = "HIDARI" "HIDARI と メモ し レ 
PUT ( 文 」Y), SAKANA, XOR > 新しい 位置 へ 
左向き の 魚 を 描く 
CASEIS > HX * 右 へ 移動 な ら ば 
MUKI$ = "MIOI" *MIGI と メモ レ 
PUT ( 文 , Y), SAKANA2, XOR > 新しい 位置 へ 
* 右向き の 魚 を 描く 
CASE IS =RHX * 移 動 し な いな ら ば 
SELECT CASE MUKI$ 
CASE "HIDARI" * 現 在 が 左向き な ら ば 
PUT ( 文 , Y),SAKANA,XOR "左向き の 魚 を 描き 
CASE "MIGI" * 現 在 が 右向き な ら ば 
PUT ( 文 , Y),SAKANA2,XOR "右向き の 魚 を 描く 
END SELECT 
END SELECT 
ELSE 
メニ =HX:Y=HY "魚の 位置 が 画面 の 範囲 外 な の で 範囲 内 に 戻す 
END IF 
END IF 
FOR J = 1 TO10 > エサ を と っ た か 10 個 分 判定 する 
SELECT CASE MUKI$ 
CASE "HIDARI" > 左向き な ら ば 


IF ABS(X) - X) < 10 AND 
ABS(Y①) - Y - 10) < 10 THEN BEEP 
* 品 の 近く な ら ば 克 告 音 を 出す 


PUT ( 玉 (J), Y 〇 ①)), ESA, XOR * エ サ を 消す 
YO①) =0 * エ サ の 位置 を 画面 の 一 番 上 に し て 
PUT ( 文 ①), Y①)), ESA, XOR * エ サ を 表示 する 
TEN = TEN + 10 * 点数 を 10 点 加え る 
END IF 
CASE "MIGI" * 右 向き な ら ば 


IF ABS(XO) - XX - YOKO) < 10 
AND ABS(Y①) - Y - 10) < 10 THEN BEEP 
PUT (X①), Y①)), ESA, XOR 
YO) =0 
PUT (XX①), Y①)), ESA, XOR 
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TEN = TEN + 10 


ENDIF 
END SELECT 
NEXT 
LOCATE 2, 10 
PRINT " 時 間 :": TIMER - TI&:" 得点 : ": TEN: 
* 時 間 と 得点 を 表示 する 
ITF TIMER - TI 必 = 60 THEN *60 秒 経過 し た ら 
LOCATE S, 10: PRINT "ゲー ム オ ー バ ー" * 終 了 を 表示 し て 
EXIT DO * 終 了 す る 
END IF 


( 魚 と エサ の キャ ラク タ の デー タ は 省略 し ます ) 
(エサ を 動か す ササ ププ ロ シ ー ジ ャ は 省略 し ます ) 





時 間 は TIMER で パソ コン か ら 取 得 し ます 。TIMER は 0 時 0 分 か ら の 秒 数 で す 。 数 が 大 
きい の で 倍 長 整数 の TI& を 使い まし た 。 エサ を 食べ た 判定 は 、 左 向き で は ( ズ ,Y+10)、 
右向き で は (X+YOKO,Y+10) を 中 心 に 10 ビ クセ モル の 範囲 内 に エサ あれ ば 食べ た こと に し 
ます 。ABSO0 は 絶対 値 の 関数 で 、 魚 の 位置 と エサ の 位置 の 差 が マイ ナス の 場合 は プラ 
ス に 変え て 、 差 が 10 未 満 で ある か どう か を 判定 し まし た 。 
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3. 9 タイ トル 画面 を つく る 





お 魚の ゲー ム が な ん と か で きま し た 。 し か し 、 ま だ 表紙 は あり ませ ん し キャ ラク 
タ を つく る 仕掛 け ゃ も 見 える の で 、 こ れ を 改善 する こと に し まし ょ う 。 


まず 、 次 の プロ グラ ム を 最初 の 部 分 の DEFINT の 次 の 行 に 挿入 し て くだ さい 。 


*QB3.9 1 お 魚 ゲ ー ム 
CLS * 画 面 消去 
FOR I = 1 TO120 STEP $ > タイ トル 画面 を 描く 
LINE (1, 1)-(639 - I, 399 - 1), 1, B 
NEXT I 
LOCATE 13。33: PRINT "お 魚 ゲ ー ム " > タイ トル を 書く 
FOR 1 = 1 TOS0 
FOR J = 1 TO7 
PALETTE J, ((J + 1) MOD 7) + 1 * 色 を いろ いろ 変え る 
FOR JJ = 1 TO100 
NEXT JJ 
NEXT 
NEXT 1 
PALETTE * 色 を も と に 戻す 
SCREEN 0, 0, 1, 0 
* 表 画面 に タイ トル 画面 を 表示 し な が ら 、 衰 画面 に 描く モー ド に する 





きら に 、 エ サ の キャ ラク タ を 読み 取る ステ ー ト メン ト (QGETG1,1)-($,$),ESA) と 
画面 消去 (CL'S) の 間 に 次 の ステ ー ト メン ト を 挿入 し て くだ さい 。 


SCREEN 0, 0, 0, 0 


こう し て 実行 すれ ば 、 キ ャ ラク タ を つく る 工程 が 影 に 隠れ て し まい 、 代 わり に タ 
イト ル 画 面 が 表示 され ます 。 


PALETTE は 、 色 を 取り 替え る ステ ー ト メン ト で す 。 


PALETTE 変更 の 対象 と する 色 番 号 , 新た な 色 番 号 


例え ば 、LINE(20, 30)-(200, 100), 2, B と すれ ば 、 緑 色 で 描き ます が 、 次 に 、 
PALETTE2.4 と すれ ば 、 す べ て の 緑色 が 一 瞬 で 赤色 に 変化 し ます 。 そ し て これ 以 
後 は 、 色 番号 2 は 赤色 に な る の で す 。 す な わ ち 、 プ ログ ラム の 中 の 色 を 一 度 に 取り 奉 
える こと が で きる の で す 。 
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な お 、 元 に 戻す に は PALETTE と し ます 。 これ で 和 色 番 号 2 は 緑色 に 戻り ます 。 
タイ トル 画面 で は 、 こ の PALETTE の 色 を 変え る 機能 を 使っ て 、 画 面 の 色 を 変え た の 
で すず 。 


SCREEN は 、 プ ログ ラム 内 で 操作 する 画面 と ディ スプ レイ に 表示 する 画面 を 指定 す 
る ステ ー ト メン ト で す 。 

実は 、PC9800 は オモ テ の 画面 と ウラ の 画面 の 2 枚 の 画面 を も っ て いま す 。 今 まで 
は オモ テ の 画面 の み を 使っ て いま し た が 、 今 回 は オモ テ の 画面 に タイ トル を 表示 し 
て お いて 、 そ の 間 に ウ ラ の 画面 を 使っ て 魚 と エサ の キャ ラク タ を 作る よう に し まし 
た 。 

SCREEN 0, 0, 1, 0 を 実行 する と 、 オ モテ の 画面 を 表示 し な が ら 、 ウ ラ の 画面 を 
使っ て キャ ラク タ な ど を 読み 書き で きま す 。 ま た 、SCREEN 0, 0, 0.0 と する と 、 
オモ テ 画 面 を 表示 し な が ら 、 オ モテ 画面 を 操作 し ます 。 

マニ ュ ア ル の 「SCREEN スク リー ン モ ー ド , パレ ッ ト ス イッ チ , コマ ンド の 対象 
と な る 画面 , 表示 する 画面 ] と いう 説明 で は わか り に くい の で す が 、 実 際 に 使う 例 
は 次 の と お り で す 。 


オモ テ 画 面 を 操作 し 、 オ モテ 画面 を 表示 する 一 SCREEN 0, 0, 0,0 
オモ テ 画 面 を 操作 し 、 ウ ラ 画 面 を 表示 する 一 SCREEN 0, 0, 0, 1 


ゥ ラ 画 面 を 操作 し 、 オ モテ 画面 を 表示 する 一 SCREEN 0, 0, 1, 0 
ウゥ ラ 画 面 を 操作 し 、 ウ ラ 画 面 を 表示 する 一 SCREEN 0, 0, 1, 1 





ー104 一 


3. 10 オル ゴー ル の BGM 


Quick BASIC は 、 オ ル ゴ ー ル の 演奏 も で きま す 。 そ れ も 、 バ ッ ク グ ラ 
ウン ドミ ュー ジッ ク (BGM) が で きる の で 、 画 面 で は 、 ア ニ メ や イラ スト を 表示 
し な が ら 、 演 奏で きる わけ で す 。 

で は 、 基 本 的 な オル ゴー ル の 鳴ら し 方 か ら 、BGM ま で 、 順 序 に 説明 し ます 。 

(1 ) 音階 
ドレ ミ フ ァ ソ ラ シ ド は 、CDEFGAB>C と 表し ます 。 
例 PLAY "CDEFGAB>C" 
> は 1 オク ター プ ブ 上 が る こと で す 。 
例 PLAY "CDEFGAB>CC<BAGFEDC" 
< は 1 オク ター プ 下 が る こと で す 。 
(2) オク ター プ 
一 番 低い オク ター プ を O0 (オー ゼロ ) と 表し 、 一 番 高い オク ター プ ブ を 0O6 (オー 
ロク ) と 表し ます 。 
例 PLAY "OO0 CDEFGAB>C" 
PLAY "O6 CDEFGAB" 
PLAY "O3 CDEFGAB>C" 
( 3 ) 音符 の 長 さ 
2 分 音符 を L2、 4 分 音符 を L4、 8 分 音符 を L8 と 表し ます 。 6 4 分 音符 まで 可能 
すら 
例 PLAY "O3 L4 CDEFGAB>C" 
PLAY "O3 L8 CDEFGAB>C L16 CDEFGAB>C" 
(4 ) 半音 
半音 上 げ は + と 表し 、 半 音 下 げ は - と 表し ます 。 
例 PLAY "O3 L8 GAB>CDEF+G" 
( 5) 個々 の 音符 の 長 さと 符 点 音符 
L4 は 、 4 分 音符 で す が 、 全 部 が 4 分 音符 で は 音楽 に は な り ま せん 。 そこで 、 4 

分 音符 の 多い 音楽 で は 、 は じ め に L4 と し て 、 長 さ を 書 か な い 場 合 に は 4 分 音符 と 

し 、 4 分 音符 以外 の 場合 は 長 さ を 書き ます 。 

また 、 点 を 付 し て 符 点 音符 を 表し ます 。 

例 PLAY "O3 L4 C.D8 E.F8 G.A8" 
C. は 4 分 音符 ド 符 点 , D8 は 8 分 音符 レ , と いう こと で す 。 
PLAY "O3 L8 C4.D E4.F G4.A" 
C4. は 4 分 音符 下 符 点 , D8 は 8 分 音符 レ , と いう こと で す 。 
どちら も 同じ 音符 で す が 、L4 と L8 の 違い で その 後 の 書 き 方 が 変わ り 。 
PLAY "O3 L8 G4.FEG>CDE2C2" 
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(6 ) 速 き 
1 分 当り の 4 分 音符 の 数 で 表し ます 。 
例 PLAY"T32 03L8 G4.FEG>CDE2C2" 
T32 は 1 分 間 に 4 分 音符 が 32 と いう こと で す 。 一 番 腺 い テ ン ポ が 32 で す 。 
PLAY "T120 O3 L8 G4.FEG>CDE2C2" 
初期 値 の 速 さ が 120 で す 。 
PLAY "T2SS O3 L8 G4.FEG>CDE2C2" 
一 番 速 い テ ン ポ が 255 で す 。 
( 7 ) 音符 の 演奏 する 長 さ 
MS が 4 分 の 3 の 長 さ 、MN が 8 分 の 7 の 長 さ 、ML が 完全 な 長き で 演奏 し ます 。 
そこ で 、MS は スタ ッ カ ー ト の よう に 演奏 し (スタ ッ カ ー ト で は な い ) 、ML で 
は スラ ー で 演奏 し ます 。 普通 は 、MN で よい よう で す 。 ま だ た 、ML で 同音 で は タイ 
に な り ま す 。 
例 PLAY "T120 O3 L8 ML G4.FEG>CDE2C2" 
PLAY "T120 O3 L8 MN G4.FEG>CDE2C2" 
PLAY "T120 O3 L8 MS G4.FEG>CDE2C2" 


実際 の 曲 の プロ グラ ム 例 は 次 の と お り で す 。 
燃え ろ よ 燃え ろ フラ ンス 民謡 
< 燃 えろ よ 燃 えろ > 
(作者 不詳 ) 
燃え ろ よ 燃え ろ 


炎 よ 燃え ろ 
火の粉 を 巻き あげ 
大 まで こ が 必 





PLAY "T120 O3 LS MN G4.FEG>CDE2C2" 
PLAY "DC<B>DC4<A4G2.P4" 

PLAY "G4.FEG>CED2<A2" 

PLAY "B4.AGB>CDC2.P4" 


さて 、 い よい よ BGM の プロ グラ ミン グ で す 。 


ON PLAY($) GOSUB ONGAKU ~ B G M 音 符 が 少な いと き (5)ONGAKU: の ルー チン 
PLAY ON *ー 上 記 の 設定 を 実行 可能 に する を 実行 する よう 設定 


GOSUB ONGAKU: * ュ ーーONGAKU: ル ー チ ン を 実行 
CLS 
DO 

FOR XX = 1 TO 640 STEP 47 
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FOR メ = 1 TO640 STEP 47 
FOR Y = 1 TO 400 STEP 47 
FOR R = 1 TO 400 STEP 40 
LINE ( 文 双 , O)-( 文 ,。 や), XX 
NEXTR 
NEXT Y 
NEXT X 
NEXT XX 

LOOP 
END 
ONGA 到 U: *<-ONGAKU: ル ー チ ン 

READ Mt$ *ーONGAKUDATA を 読 

ITF MS =" THEN *ー デ ー タ が な けれ ば 

RESTORE ONGAKUDATA: 一 デー タ を は じ め か ら 
READ Nt$ * 王 読み 直す 

END ITF 

PLAY Mt$ *ー デ ー タ を 演奏 する 
RETURN * 一 戻る 
ONGAKUDATA: ーー 家 プ ーー 
DATA "MB T120 O3 L8 MNF.F16 F.G16 A.A16 A.A16 O.F16 O.A16 F.F16 C4" 
DATA "A.A16 A.B-16 > C.C16 C.C16 < B-.A16 B-.>C16 < A4. > C8" 
DATA "<A4.>C < A4.>C < A.>C16 < A.>C16 <A2" 
AA "" 





ON PLAY($) GOSUB ONGAKU: は 、 楽 譜 の デー タ が な く な っ て 、BGM が 停止 し な い 
よう に し て いる 仕掛 で す 。 これ に よっ て 、 何 回 も 演奏 を 繰り 返す か こと が で きる の で 
す 。 た だ し 、 こ れ は 、 機 能 の 設定 だ け で 、 次 の PLAYON が この 機能 を ON に し て い 
ます 。 

DATA "MB T120‥・‥ の MB が BGM と な る よう に 指示 し て いま す 。 

BGM は 、 ア ニ メ や イラ スト を 楽し くす る 効果 が あり ます 。 


静か な 湖畔 スイ スズ 民放 





3. 1 1 効果 音 で お も し ろく 


パソ コン の BEEP 音 は 単純 な 音 で す が 、 こ の 装置 を 利用 し て 、 い ろ い ろ な 周波 数 を 
与え る こと に よっ て 、 効 果 音 を 発生 する こと が で きま す 。 


SOUND 1000, 7 


この 1 行 の プロ グラ ム を 実行 する と 1000Hz (ヘル ツ ) の 音 が 0.383 秒 間 鳴 り ま す 。 
時 間 は 、1 が 0.0SS 秒 で すか ら 、7 な ら ば 7X0.055=0.385 秒 と いう こと で す 。 


SOUND 周波 数 . 時 間 


周波 数 は 38Hz か ら 32767Hz ま で 使え ます が 、 人 間 の 耳 に 聴こえ る の は 10000Hz ぐ ら 
いま で の よう で す 。 


*QB3_11_1 救急 車 の サイ レン 
DO 
SOUND 1000, 7 
SOUND 330, 7 
LOOP 


*QB3_11_2 何 か が 落下 する 効果 音 

FOR 1 = 3000 TO 300 STEP -10 
SOUND L, .2 

NEXT 


*QB3_11_3 何 か が 上 昇 する 効果 音 

FOR 1 = 300 TO 3000 STEP 10 
SOUND 1, .2 

NEXT 


*QB3_11_4 何 か が 弾む 効果 音 
FOR 1 = 1 TO 20 

SOUND 300, .2 

SOUND 32767, 10 / I 
NEXT 
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第 @ 章 

トラ ンプ ブ 右 い 

キャ ラク タ の フロ ッ ピ ー デ ィ ス ク へ の 保存 
と レコ ー ド 型 変数 の 使い 方 を 学び ます 。 





4. 1 キャ ラク タ の 保存 


トラ ジン シグ 占い み プ ログ ジム を 作り まし ょ う 。 と の 間 で は 。 フ ロッ ピー ディ スグ と 
レコ ー ド 型 の 変数 の 使い 方 な ど を 学び ます 。 
トラ ンプ 占い の プロ グラ ム 全 体 の 構造 の 概要 は 次 の と お り で す 。 


カー ド を 混ぜ る 
カー ド を 取り 出す 
カー ド に よっ て 占い の 言葉 を 表示 する 


まず 、 カ ー ド の キャ ラク タ を 作り ます 。 
ケー ド の キャ ラク タ は 。 ダ イヤ 、 ハート 、 ス ペー ド 、 ク ラブ の 4 程 痢 及び か カー ド 


の 裏面 で す 。 今回 の プロ グラ ム で は 裏面 は 使わ な い の で す が 、 別 の トラ ンプ ゲー ム 
を 作成 する と き の た め に 加え て お きま し た 。 4 種類 の キャ ラク タ の 作り 方 は 同じ な 
の で 、 こ の 処理 を サブ プロ シー ジャ へ まとめ まし た 。 

プロ グラ ム の 構造 は 次 の と お り で す 。 


キャ ラク タ を 入れ る 谷 器 の 大 き さ を 計算 し て 鶴 器 を 作る 


フロ ッ ピ ー デ ィ ス ク の ファ イル を 開く 










トラ ンプ 占い 






カー ド の キャ ラク タ を 画面 へ 表示 する 
カー ド の キャ ラク タ を 画面 か ら 読み 取る 


カー ド の キャ ラク タ を フロ ッ ピ ー デ ィ ス ク へ 保存 する 


カー ド の 理 の キャ ラク タ を 画面 へ 表示 し 、 
読み 取っ て フロ ッ ピ ー デ ィ ス ク へ 保存 する 


ま ギ ラグ タ 
の 準備 


尾 問 融 た メー ミ 
所 ご 紗 


フロ ッ ピ ー デ ィ ス ク の ファ イル を 閉じ る 





DECLARE SUB HOZON (ZUKEI%0, 11 の, 12%) 
* 上 古い 1 ***\*※ ト ラン プ 上 占い カー ド を つく り 保 存 す る ** ネ ** 
DEFINT B, 1, N, T,Y * 整数 型 変数 
CLS * 画 面 消去 
B ニ (4+4* (2+7)\8)*642)\2 
* ト ラン プ の 絵 を 入れ る 容器 の 大 き さ を 計算 する 


DIM DIAMOND(1 TO B) AS INTEGER * ダ イヤ の 容器 を 作る (整数 ) 
DIM HEART(1 TO B) AS INTEGER > ハー ト の 容器 を 作る 
DIM SPADE(1 TO B) AS INTEGER > スペ ー ド の 容器 を 作る 


DIM CLUB(1TOB) AS INTEGER * ク ラブ の 容器 を 作る 
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DIM URA(1 TO B) AS INTEGER * カ ー ド の 裏面 の 容器 を 作る 
LINE (1, 1)-(32, 8), 7, BF * ト ラン プ の 絵 を 描く 
LINE (1, 33)-(32, 64), 7, BE 
OPEN "B:CARD.DAT" FOR RANDOM AS #1 LEN = LEN(DIAMOND) * フ ァイル を 開く 
HOZON DIAMOND0), 1, B > 1 から B ま で の レコ ー ド 番号 で ダイ ヤ の 絵 を 保存 
HOZON HEART(O,B+ 1.B* ク 
*B 十 1 か ら BX2 ま で の レコ ー ド 番号 で ハー ト の 絵 を 保存 
HOZON SPADEO,B* 2+ 1,B*3 
*BX2 十 1 か ら BX3 ま で の レコ ー ド 番号 で スペ ー ド の 絵 を 保存 
HOZON CLUBO,B* 3 + 1.B*4 
>BX3 十 1 か ら BX4 ま で の レコ ー ド 番号 で クラ ブ の 絵 を 保存 
FOR N = 1 TO 32 * カ ー ド の 裏面 を 描く 
LINE (N,1)-CN, 64), N 
NEXTN 
FOR N = 1 TO 64 STEP 2 
LINE (1, N)-(32, N), N 
NEXTN 
GET (1, 1)-(32, 64), URA * 衰 面 の キャ ラク タ を 読む 
FORI =B*4+ 1TOB*$ 
PUT #1。 I, URA(I- B*4) " 裏 の キャ ラク タ を フロ ッ ピ ー デ ィ ス ク へ 保存 
NEXT 1 


CLOSE #1 * フ ァイル を 閉じ る 
> せ テ スト の た だ ため 描い て みる 

PUT (1, 1), DIAMOND, PSET > ダイ ヤ を 描く 

PUT (41, 1), HEART, PSET * ハ ー ト を 描く 

PUT (81, 1), SPADE, PSET * ス ペー ド を 描く 

PUT (121, 1), CLUB, PSET * ク グラ タラ デ プ を 描く 

PUT (161, 1), URA, PSET * 裏 を 描く 

END 


DATA 77777777777777747777777777777777 
DATA 77777777777777444777777777777777 
DATA 77777777777774444477777777777777 
DATA 77777777777744444447777777777777 
DATA 77777777777444444444777777777777 
DATA 77777777774444444444477777777777 
DATA 77777777744444444444447777777777 
DATA 77777777444444444444444777777777 
DATA 77777774444444444444444477777777 
DATA 77777744444444444444444447777777 
DATA 77777444444444444444444444777777 
DATA 77774444444444444444444444477777 
DATA 77777444444444444444444444777777 
DATA 77777744444444444444444447777777 
DATA 77777774444444444444444477777777 
DATA 77777777444444444444444777777777 
DATA 77777777744444444444447777777777 
DATA 77777777774444444444477777777777 
DATA 77777777777444444444777777777777 
DATA 77777777777744444447777777777777 
DATA 77777777777774444477777777777777 
DATA 77777777777777444777777777777777 
DATA 77777777777777747777777777777777 
DATA 77777777777777777777777777777777 
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DATA 77777777744477777777744477777777 
DATA 77777774444444777774444444777777 
DATA 77777744444444777744444444777777 
DATA 77777444444444477444444444477777 
DATA 77777444444444477444444444447777 
DATA 77774444444444477444444444447777 
DATA 77774444444444444444444444447777 
DATA 77774444444444444444444444447777 
DATA 77774444444444444444444444447777 
DATA 77774444444444444444444444447777 
DATA 77777444444444444444444444477777 
DATA 77777444444444444444444444477777 
DATA 77777444444444444444444444777777 
DATA 77777744444444444444444447777777 
DATA 77777774444444444444444477777777 
DATA 77777777444444444444444777777777 
DATA 77777777774444444444477777777777 
DATA 77777777777444444444777777777777 
DATA 77777777777744444447777777777777 
DATA 77777777777774444477777777777777 
DATA 77777777777774444477777777777777 
DATA 77777777777777444777777777777777 
DATA 77777777777777747777777777777777 
DATA 77777777777777777777777777777777 


DATA 77777777777777707777777777777777 
DATA 77777777777777000777777777777777 
DATA 77777777777777000777777777777777 
DATA 77777777777770000077777777777777 
DATA 77777777777700000007777777777777 
DATA 77777777777000000000777777777777 
DATA 77777777770000000000077777777777 
DATA 77777777000000000000000777777777 
DATA 77777700000000000000000007777777 
DATA 77777000000000000000000000777777 
DATA 77770000000000000000000000077777 
DATA 77770000000000000000000000077777 
DATA 77770000000000000000000000077777 
DATA 77770000000000000000000000077777 
DATA 77770000000000000000000000077777 
DATA 77770000000000000000000000077777 
DATA 77777000000000000000000000777777 
DATA 77777000000007707700000007777777 
DATA 77777770000077000770000077777777 
DATA 77777777777770000077777777777777 
DATA 77777777777700000007777777777777 
DATA 77777777777000000000777777777777 
DATA 77777777770000000000077777777777 
DATA 77777777777777777777777777777777 
DATA 77777777777770000007777777777777 
DATA 77777777777000000000077777777777 
DATA 77777777770000000000007777777777 
DATA 77777777700000000000000777777777 
DATA 77777777700000000000000777777777 
DATA 77777777700000000000000777777777 
DATA 77777777770000000000007777777777 
DATA 77777777770000000000007777777777 
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DATA 77777770000077707770000077777777 
DATA 77777777777777000777777777777777 
DATA 77777777777770000077777777777777 
DATA 77777777777700000007777777777777 
DATA 77777777777000000000777777777777 
DATA 77777777770000000000077777777777 
DATA 77777777777777777777777777777777 


DEFINT I, 文 - 
SUB HOZON (ZUKEIO, I1, 12) * サ ププ プロシージャ の HOZON 
FORY=9TO32 
READ A$ * 図 形 の デー タ を 読む 


FOR = 1 TO32 
PSET ( 文 , Y), VAL(MID$(A$, 文 , 1)) "画面 に トラ ンプ を 表示 する 
NEXT X 
NEXTY 
GET (1, 1)-(32, 64), ZUKEI 
FOR I = I1 TOI2 
PUT #1, IT,。 ZUKEI(I - 11 + 1) * 絵 を ディ スク へ 保存 する 





DIM DIAMOND(1 TO B) AS INTEGER は 、 ダ イヤ の キャ ラク タ を 入れ る 容器 で す 。 
AS INTEGER は 整数 と し て と いう こと で 、2 バ イト (1 6 ビッ ト 相 当 ) の 領域 を B 
個 使用 する こと で す 。 


LINE (1, 1)-(32,。 8), 7,。 BF 及び LINE (1, 33)-(32, 64), 7,BF は 、 カ ー ド 
の 白い 部 分 を あら か じ め 描 いた の で す 。 
サブ プ プ ロ シ ー ジ ャ HOZON の 中 で は 、 (1.9)-(32,32) の 部 分 に 図 を 描く よう に し まし 


だ 。 (1.1) 
(1.9) 





(32.92) 





(32,64) 


宣 3= 


メイ ンプ ロ シ ー ジ ャ か ら サ ププ ブ プロシージャ へ の デー タ の 受渡 し は 、 次 の よう に し 
ます 。 
HOZON CLUBO,B*3+1.B*4 


SUB HOZON ( 之 UKEIO.I1.I2) 


OPEN "B:CARD.DAT" AS RANDOM AS #1 LEN=LEN(DIAMOND) は 、 こ れ か ら 使 う フ ァ イ 
ル の 指定 で す 。 

OPEN は ファ イル を 開く こと で す 。 仕事 の 終り に は ファ イル を 閉じ ます (CLOSE)。 

FOR RANDOM は 、 ラ ンダ ム ア ク セス ファ イル で ある こと を 示し て いま す 。 ランダム 
アク セス ファ イル は 、 フ ァイル の どの 位置 で も 読み 書き が で きる よう な ファ イル の 
形式 を いい ます 。 そ の た め に 、 入 力 す る デー タ の 位置 (レコ ー ド 番号 = 要する に 何 
番目 の アー タ で ある か ) を 書く 必要 が あり ます 。 

AS#1 は 、 フ ァイル に # と いう 番号 を 付け た の で す 。 入力 や 出力 する と き は 、 こ の 
番号 を 使い ます 。 

LEN=LEN(DIAMOND) は 1 レコ ー ド (1 件 分 の デー タ ) の 長 さ を 指示 し て いま す 。 右 
辺 の LEN は 長 さ を 計算 する ステ ー ト メン ト で す 。 

PUT #1, 1, ZUKEI(I-I1+1) と いう 形式 で 書き 込み ます 。 こ こ で は 、1I が レコ ー ド 番 
号 で ZUKEI-I1+1) が デー タ の 内 容 で す 。 


OPEN は 帳簿 を 開く よう な も の SNS レー 
PUT 電 , 1, ZUKEI (I-I1+1) 


し 導き Ab 内 
等 に 例え れ ば 
2 帳 等 に 例え 


「 何 ペー ジ 目 に OO 〇 を 
書き 込む み ] と いう こと 
ー つ の ファ イル に 5 種類 の キャ ラク タ を 入力 し た の で 、 フ ロッ ピー ディ スク で の 
入力 位置 に 気 を 使う 必要 が あり ます 。 
そこ で 、 ダ イヤ は 1 か ら B ま で 、 ハ ー ト は B+1 か ら BX2 ま で と いう よう に 複雑 に な っ 
も し まま し た 。 


ー マロ ロ 
キ ヤ フ グ グ の 容器 DIAMOND(1 TOB) HEART(1TOB) SPADE(1 TO B) CUB(1 TO B) URA(1 TO B) 


ーー NN ト /Z ンジ ン 
ファ イル (BCARDDAT 





* 。 和 貫 月 00 朋 7 


1 B Br1 BX2 BX2 十 1 BX3 BX3 十 1 BX4 BX4 十 1 BX5 
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4. 2 カー ド の 準備 


カー ド を 表示 する た だ ため の キャ ラク タ を つく っ て フロ ッッ ピー ディス ク に 保存 し た の 
で 、 次 に 、 カ ー ド を パソ コン 内 に 用 意 し て それ を 画面 へ 表示 し ます 。 


プロ グラ ム の 構造 は 次 の と お り で す 。 






カー ド を 表示 する 
た め の 材 料 の 準備 







容器 へ 
カー ド を 入れ る 


カー ド を 表示 する 


カー ド の キャ ラク タ を フロ ッ ピ ー デ ィ ス ク か ら 読 む 
カー ド の 文字 (番号 ) の キャ ラク タ を 読む 
カー ド の 容器 へ 型 と 数 を 入力 する 
















DECLARE SUB CARDHYOUZI (CARD AS ANY, MX AS INTEGER, MY AS INTEGER) 
DECLARE SUB CARDYOMI (CARDGR() AS INTEGER, A AS INTEGER, B AS INTEGER) 


> 占い 2 *** キ トラ ンプ 占い 
DEFINT A-B, エ - 多 , 本 , XX-Y 
CLS 

TATE = 64: YOKO = 32 


B ニ (4 オ 4+ 人 4 オギ ((YOKO+T 7) \ 8) * TATE)\ 2 


カー ド を 用 意 する **w* 


"で 画面 消去 
*ー ト ラン プ の 大 き さ 


*ー ト ラン プ の 絵 を 入れ る 容器 の 大 き さ を 計算 する 


DIM DIAMOND(1 TO B) AS INTEGER 
DIM HEART(1 TO B) AS INTEGER 
DIM SPADE(1 TO B) AS INTEGER 
DIM CLUB(1 TO B) AS INTEGER 
DIM URA(1 TO せ ) AS INTEGER 
DIM MOJI(1 TO 13) AS STRING * 2 


TYPE CARDTYPE 
KATA AS INTEGER 
SUU AS INTEGER 
END TYPE 
DIM CARD(1 TO 52) AS CARDTYPE 


OPEN "B:CARD.DAT" FOR RANDOM AS #1 LEN = LEN(DIAMOND) 


CARDYOMI DIAMONDO, 1, B 
CARDYOMI HEARTO, B+ 1.B*2 
CARDYOMI SPADEO,B*2+ 1,B*3 
CARDYOMICLUBO,B* 3 + 1.B*4 
CARDYOMIURAO,B*4+ 1,.B*5 

CLOSE #1 

FOR I = 1 TO13 
READ MOJI) 

NEXT I 


15= 


*ー ダ イヤ の 容器 を 作る 
*ー ハ ー ト の 容器 を 作る 
*ー ス ペー ド の 容器 を 作る 
>ー ク ラブ の 容器 を 作る 
* 一 カード の 裏面 の 容器 を 作る 
*ー カ ー ド の 文字 の 容器 を 作る 


* 一 カー ド 型 の デー タ を 決め る 
* 一 型 は 整数 
* 一 数 は 整数 
* 一 印 を つけ る 

*ー カ ー ド 5 2 枚 分 の 容器 を 作る 





*ー フ ァイル を 開く 
> デー カー ド の 絵 の デ ー タ を 読み 取る 


*ー フ ァイル を 閉じ る 


*ー カ ー ド 用 の 文字 を 読み 取る 


*ー カ ー ド 箱 の 中 に カー ド を 入れ る 


KK=0 
FOR I = 1 TO4 *ー カ ー ド は 4 種類 ある 
FOR J = 1 TO13 *ー 1 種類 の カー ド は 1 3 枚 あ る 
KK=K+1 *ー 通 し て 何 番目 の カー ド か 数 える 
CARD(K).KATA = I * 一 型 に 1 から 4 の 数 を 入れ る 
CARD(K).SUU = 了 * 一 数 に 1 か ら 1 3 の 数 を 入れ る 
NEXT J 
NEXT 1 
*ー カ ー ド 箱 の カー ド を 順に 表示 する 
氏 =0 
FOR Y = 1 TO16 STEP $ *ー 表 示 位 置 の 行 数 を 決め る 
FOR 又 = 1 TO 61 STEP $ * 一 表示 位置 の 列 数 を 決め る 
K=K+1 * 通 し て 何 番目 に ある か 計算 する 
CARDHYOUZI CARD(K), 文 , Y *ー 決 め た 位置 へ カー ド を 表示 する 
NEXTX 
NEXT Y 
END 


AN 2 、 う 4 5 6 、7 89 J 0 *ー カ ー ド の 数 の 文字 


DEFSNG A-B, I-KK, T, X-Y 
SUB CARDHYOUZI (CARD AS CARDTYPE, MX AS INTEGER, MY AS INTEGER) 
*ー カ ー ド の 表示 
SHARED DIAMOND() AS INTEGER, HEART() AS INTEGER 
SHARED SPADE() AS INTEGER, CLUB() AS INTEGER, URA() AS INTEGER 
SHARED MOJIO AS STRING * 2 
*ー メ イン と デー タ を 共有 する 


DEFINT L, X-Y 
COLOR 1 * 一 文字 の 色 を 再 に する 
LX=MX+ 2 * 画 面 中 の カー ド の 文字 の 
LY=MY+3 * 位 置 の 計算 
LOCATE LY, LX *ー カ ー ン ソル を 文字 の 位置 へ 移動 
PRINT MOJI(CARD.SUU): * 一 文字 を 書く 
文 ニ MX*8 *ー グ ラフ ィ ッ ク 画 面 中 の 
Y ニ MY*16 *? カ ー ド の 位置 の 計算 
SELECT CASE CARD.KATA *ー カ ー ド の 絵 を 描く 
CASE 1 *ー1] な ら ば 
PUT ( 文 , Y), DIAMOND, XOR *ー ダ イヤ を 措 く 
CASE 2 *ー2 な ら ば 
PUT ( 文 」Y), HEART, XOR *ー ハ ー ト を 描く 
CASE 3 *ー3 な ら ば 
PUT ( 文 , Y), SPADE, XOR *ー ス ペー ド を 描く 
CASE 4 >ー4 なら ば 
PUT ( 文 ,Y), CLUB, XOR *ー ク ラブ を 描く 
CASE $ *ー5 な ら ば 
PUT ( 文 」Y), URA, XOR * 一 裏 を 描く 
END SELECT 
COLOR 7 * 一 色 を 白色 に する 


END SUB 
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DEFSNG L, X-Y 
SUB CARDYOMI (CARDGR() AS INTEGER, A AS INTEGER, B AS INTEGER) 
DEFINT 1-J "amn 枝 の デー タグ を グロ ッ ピ ー か ら 1 


> 一 1] か ら B 番 まで の レコ ー ド 番号 で 
了 ニ 了 +1 *ー レ コー ド 番 号 を 計算 する 
GET #1。 1I。 CARDGRO①) >ー 絵 の デー タ を 読み 取る 





カー ド を 準備 する と いう こと は 、 カ ー ド を 入れ る 容器 を 用 意 し て カー ド の 型 と 数 
を 入力 し て お く こ と で す 。 1 枚 の カー ド は 、 型 と 数 の 二 つ の デー タ を も っ て いる の 
で 、 次 の よう に 書く こと が で きま す 。 


TYPE CARDTYPE ーCARDTYPE と いう 形状 の 容器 を 作る 
KATA AS INTEGER ー 型 は 整数 
SUU AS INTEGER 一 数 は 整数 

END TYPE 


そし て 、 カ ー ド の 枚数 は 13X4=52 枚 で すか ら 、 次 の よう に カー ド の 容器 を 
5 2 個 用 意 し まし た 。 


DIM CARD(1 TO S2) AS CARDTYPE 









CARD(1) CARD(②) CARD(3) CARD(52) 
0 2 
2 デア 
ET mr 議 の 


容器 の 形状 は 、 こ れ ま で は 整数 型 の よう に 文法 上 すでに 定め られ て いる 型 指定 だ 
け で し た が 、CARD と いう 容器 の 形状 は 、TYPE.……END TYPE と いう ステ ー ト メン ト に 
よっ て プロ グラ マー が 自ら デー タ 構 造 を 定め た CARDTYPE と いう 指定 に な っ て いま す 。 

この よう な 容器 の こと を 、 レ コー ド 型 の 変数 と いい ます 。 こ の 機能 は 、C 言 語 や 
PASCAL に は あり まし た が 、BASIC に は あり ませ ん で し た 。 

この レコ ー ド 型 の 変数 指定 に よっ て 、 た と えば 18 枚 目 の カ ー ド は CARD(18) と し て 
取り 扱う と 同時 に 、18 枚 目 の カ ー ド の 型 は CARD(18).KATA、18 枚 目 の カ ー ド の 数 は CA 
RD(18).SUU と し て 取り 扱う こと が で きる の で す 。 

KATA 及 び SUU は と も に 整数 型 の 指定 で す が 、 こ の 内 容 を 次 の よう に 決め ます 。 

〇 カー ド の 型 ダイ ヤ :1 ハデ ト :3 スペ ー ド :3 み 及 が 54 

〇 カー ド の 数 A:1 肝 さ 人 めき 当 4 :4 5 *8 6 :6 が る 

8 :8 9390 10S0 すす 3 0: 区: 

カー ド の 数 の 文字 は 、 全 角 文 字 を 使う の で 、2 バ イト コー ド に な り ま す 。 そこで 、 

2 バイ ト の 文字 列 が 1 3 個 必要 に な り ま す 。 プ ログ ラム は 次 の と お り で す 。 
DIM MOJI(1 TO 13) AS STRING * 2 
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サ プ プ ブロ シー ジャ 内 の SHARED・‥・‥ は 、 メ イン プロ シー ジャ の 容器 を 共同 利用 する 
た め の ス テー トメ ント で す 。 本来 、 サ ブ ププ ロ シ ー ジ ャ は メイ ン か ら 独 立 し て いる の 
で す が 、 仕 事 の 内 容 に よっ て は 共同 利用 の 方 が 便利 な 場合 が あり ます 。 

サ プ プ ロ シ ー ジ ャ CARDHYOUZI は 、 カ ー ド の 表示 を 容易 に する た め の プ ログ ラム で 
す 。MX、MY が 表示 位置 で す が 、 ビ ピク セル 数 の 座標 位置 で は な く 文 字 を 表示 する た め 
の 座標 位置 を 使っ て 、 左 上 の 位置 を 指し 示す よう に し て あり ます 。 カード の 文字 を 
表示 する に は 、LX=MX+2、LY=MY+3 と 位置 を 調整 し 、 カ ー ド の 型 の キャ ラク タ を 表示 
する に は 、X=MX*8、Y=MY*16 と 座標 を 調整 する よう に な っ て いま す 。 


文字 の た め の 座 標 位置 


() 一 ーーーーーーーーーーーーーーーーーー イ ーー 79 


文字 | クジ タク 
MY=12|YaMYX16 


文字 MX=40 
グ ジィ ッ ス X:MX X8 
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4. 3 トラ ンプ 占い の 完成 


カー ド の 準備 が で きた の で 、 い よい よ 、 ト ラン プ 占 い を 完成 さき せま し ょ う 。 
トラ ンプ 占い の プロ グラ ム の 構造 は 次 の と お り で す 。 

カー ド の 型 と 数 の キャ ラク タ の 準備 
[占い 言葉 の 準備 | 
星座 の 選択 画面 の 表示 と 番号 の 入力 


カー ド と 占い 言葉 の 画面 表示 
















DECLARE SUB CARDHYOUZI (CARD AS ANY, MX AS INTEGER, MY AS INTEGER) 
DECLARE SUB CARDYOMI (CARDGR() AS INTEGER, A AS INTEGER, B AS INTEGER) 
* 占 い 3 ** ネ ネネ キト ラン プ 占 い 完成 **** 

DEFINT A-B, 1-K, 了 , 又 -Y 





CLS * 画 面 消去 
TATE = 64: YOKO = 32 ? ト ラン プ の 大 きき さき 
B=(4+4*((YOKO+7)\ 8)* TATE)\2 "トラ ンプ の 絵 を 入れ る 容器 の 
* 大 きき さ を 計 算 し ます 
DIM DIAMOND(1 TO B) AS INTEGER * ダ イヤ の 容器 を 作る 
DIM HEART(1 TO B) AS INTEGER * ハ ー ト の 容器 を 作る 
DIM SPADE(1 TO B) AS INTEGER * ス ペー ド の 容器 を 作る 
DIM CLUB(1 TO B) AS INTEGER * ク ラブ の 容器 を 作る 
DIM URA(1 TO B) AS INTEGER * カ ー ド の 裏面 の 容器 を 作る 
DIM MOJI(1 TO 13) AS STRING * 2 * カ ー ド の 文字 の 容器 を 作る 
TYPE CARDTYPE * カ ー ド 型 の デー タ を 決め る 
KATA AS INTEGER * 型 は 整数 
SUU AS INTEGER * 数 は 整数 
END TYPE * 印 を つけ る 
DIM CARD(1 TO 52) AS CARDTYPE * カ ー ド 5 2 枚 分 の 容器 を 作る 
DIM CARDW AS CARDTYPE * カ ー ド を 交換 する た め の 容 器 
OPEN "B:CARD.DAT" FOR RANDOM AS # LEN = LEN(DIAMOND) * フ ァイル を 開く 
CARDYOMI DIAMOND0, 1, B * カ ー ド の 絵 の デ ー タ を 読み 取る 


CARDYOMI HEARTO,B+1.B*2 

CARDYOMI SPADEO.B*2+ 1.B*3 

CARDYOMTI CLUBO,B*3+1、B*4 

CARDYOMI URAO,B*4+1.B*S 

CLOSE #1 * フ ァイル を 閉じ る 


3 導 9 三 


FOR エ = 1 TO 13 


READ MOJI) * カ ー ド 用 の 文字 を 読み 取る 
NEXTI 
* カ ー ド の 箱 の 中 に カー ド を 入れ る 
KK =0 
FOR I= 1 TO 4 * カ ー ド は 4 種類 ある 
FOR j = 1 TO 13 * 1 種類 の カー ド は 1 3 枚 あ る 
KK= ニ KK+ 了 1 * 通 し て 何 番目 の カー ド か 数 える 
CARD(K).KATA =I * 型 に 1 か ら 4 の 番号 を 入れ る 
CARD(K).SUU =j * 数 に 1 か ら 1 3 の 番号 を 入れ る 
NEXT 
NEXT I 
DIM KOTOBA$(1 TO 3, 0 TO ④ * 占 い の 言 葉 の 容器 を 作る 
FOR I=1TOS * 5 種類 の 項目 
FOR j=0 TO 4 * 各 項目 ご と に 4 つの 言葉 が ある 
READ KOTOBA$(L,)) * 言 葉 を 読み ます 
NEXT 
NEXTI 
DO 
CLS * 画面 消去 
COLOR 3 * 水 色 に する 
PRINT 0 来 来 来 来 来 来 来 来 氷 来 来 来 来 来 来 来 来 来 来 来 来 氷 来 来 来 来 来 来 来 来 来 来 来 来 来 来 来 来 来 来 来 来 来 氷 氷 氷 氷 氷 来 『 
PRINT LU キキ キネ ホネ ネネ ネネ ネネ ホネ ネネ ネネ ネネ ネネ ネネ ホネ ホホ ネネ ホホ ホネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ポリ 
COLOR $? * 紫色 に する 
PRINT LM 来 来 氷 氷 来 氷 未 ト ラ ッ プ 占 い 氷 来 来 来 玉 氷 玉 玉 来 ! 
PRINT " 来 来 来 来 来 来 氷 来 来 来 あ な だ た の 運勢 を 占 いま す 来 来 玉 玉 玉 玉 素 玉 来 り 
COLOR 3 * 水 色 に する 
PRINT し 来 来 来 氷 来 来 来 来 氷 氷 来 氷 氷 来 来 氷 来 氷 氷 氷 氷 氷 未 玉 氷 氷 氷 氷 氷 氷 来 氷 氷 氷 来 氷 氷 氷 氷 氷 床 氷 氷 氷 末 氷 氷 来 " 
PRINT LJ ホホ ネネ ネネ ネネ ホネ ネネ ホネ ホネ ネネ ネネ ホネ ネネ ホネ ホホ ネネ ホネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ポリ 
PRINT 
PRINT 
COLOR 6 * 黄色 に する 
PRINT " 1: 願い の こと " 
PRINT " 2: 幸せ の こと " 
PRINT " 3: 就職 、 進 学 の こと " 
PRINT " 4: お 金 の こと " 
PRINT " る 5 8 の あり 
PRINT " 6: 終了 " 
PRINT 
COLOR 4 * 赤 色 に する 
PRINT " どの 占い を し ます か 。 番号 を 入力 し て くだ さい 。" 
PRINT 
COLOR 7 * 白 色 に する 
DO 
U$ = INKEY$ * 番 号 を 入力 する 


LOOP UNTIL U$ >= "0" AND US <= "6" * 範 囲 内 の 数 字 か 判定 し ます 
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IF U$ = "6" THEN ?6 な ら ば 終了 し ます 
CLS 


END 
END IF 
PRINT 
PRINT 
1: 天 衝 座 2: 央 座 3: 射 手 座 4: 山 羊 座 S: 水 瓶 座 6: 魚 座 " 
PRINT 
7: 牡 半 座 8: 牡 生 9: 双子座 10: 角 座 11: 獅 子 座 12: 乙 女 座 " 
PRINT 
INPUT " あな た の 星座 の 番号 を 押し て リタ ー ン し て くだ さい 。" 
: SEIZA 
シャッフル 
RANDOMIZE TIMER 
FOR 1I = 1 TO52 
) = S1 * RND+ 1 
CARDW = CARD(①) 
CARD) = CARDG) 
CARDGj) = CARDW 
NEXT I 
CLS * 画 面 消去 
CARDHYOUZI CARD(SEIZA), 15, 4 > カー ド を 13 列 4 行 目 に 表示 する 
COLOR 2 * 緑 色 に する 
LOCATE 10, 5 >10 行 5 列 目 に カー ソル 移動 
PRINT "****\* "KOTOBAS(VAL(U$), 0): "キキ * 項 目 を 書く 
COLOR 3 > 水色 に する 
LOCATE 13, 5 *13 行 5 列 目 に カー ソル 移動 
PRINT KOTOBAS$(VAL(U$), CARD(SEIZA).KATA) * 占 い の 言 葉 を 書く 
PRINT 
PRINT 
COLOR 7 * 白色 に する 
PRINT 
PRINT 
PRINT " 何 か キ ー を 押し て くだ さい " 
DO 
LOOP UNTIL INKEYS$ <> "" * 何 か キー を 押せ ば 次 に 進む 
LOOP 
IDATAA。2、3.4.5.6.7。8。9.10.T 、⑳0。K * カ ー ド の 数 の 文字 
DATA 願い の こと 
DATA あな た の 願い を 邪魔 する 人 が いま す 。 短気 を 起こ さき な いこ と 。 
DATA 思 う よ う に は いき ませ ん が 、 周 囲 の 人 た ち に 助け られ ます 。 
DATA すべ て の こと が か な えら れ ま す 。 
DATA あな た の 努力 し だ いで 希望 が か な えら れ ま す 。 
DATA 幸せ の こと 


DATA 幸福 は 、 な が く 続 きま せん 。 忍耐 が 必要 で す 。 
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DATA 自分 勝手 な 行動 は 、 不 幸 の も と で す 。 自重 が 大 切 で す 。 
DATA 何事 に も 順調 に 発展 し 、 恵 まれ ます 。 

DATA 無理 を し な いで 慎重 に 行動 すれ ば 、 順 調 で す 。 

DATA 就職 、 進 学 の こと 

DATA 面接 で の あな た の 態度 が 量 い の で 合格 は 難し いで し ょ う 。 
DATA 第 一 希望 に は 合格 で きま せん が 、 第 2 第 3 希望 に は 合格 で きま す 。 
DATA あな た の 実力 で 、 希 望 の と お り 合 格 で きま す 。 

DATA あな た の 共 力 し だ いで 希望 の 会 社 や 学校 に 合格 し ます 。 
DATA お 金 の こと 

DATA あな た の 努 力 で 多額 の 金 が 入り ます 。 

DATA 他人 に 頼る と 金 を 失い ます 。 

DATA 金 が ドン ドン 入っ て きま す 。 

DATA 相当 、 慎 重 に 行動 し な いと 、 金 を 使い 果たし て し まい ます 。 
DATA 恋 の こと 

DATA 人 に ね だ た み を か っ て 邪魔 きれ ます 。 

DATA どこ か 性 格 が 合わ な いよ う で す 。 

DATA 結婚 で きる で し ょ う 。 


SUB CARDHYOUZI (CARD AS CARDTYPE, MX AS INTEGER, MY AS INTEGER) 
ぅ > カード の 表示 
(省略 前 節 に 同じ ) 


SUB CARDYOMI (CARDOR() AS INTEGER, A AS INTEGER, B AS INTEGER) 
(省略 前 節 に 同じ ) 


END SUB 





占い の 言葉 を 入れ て いる 容器 は DIM KOTOBA$(1 TO S, 0 TO4) と いう 指定 で す が 、 
これ は 、 次 の 図 の よう な 容器 で す 。 


PPP FRRH し PSP 
OCG KOTOBNG | YOT05AS62 | OrOBNe3 KOT08AS64 
OrOBG6 | OOH4G | OOBAN6 1 YOTOBA663 | OO8B64 
ORBNR ORBSG0 6Cad3 1 969N43 0864 
OrOBMS6 | KOTOBNN5) | YOTOBAS62 | OOBAN53) | YOT08S64 


これ ら の 容器 の うち 、KOTOBA$(1, 0)、KOTOBA$(2, 0) ・ KOTOBA$($, 0) に は 、 占 
い の 項 目 の 名 称 を 入れ ます 。 

KOTOBA$(1, 0) に 入れ た 項目 に つい て の 占い の 言葉 は 、KOTOBAS$(1, 1)、KOTOBA$ 
(1, 2)‥‥…KOTOBA$(1, 4) に 入れ て あり 、 4 つの 言葉 の 選択 は 、 選 ば れ だ た カー ド の 
型番 号 に よっ て 画面 へ 表示 する よう に し て あり ます 。 
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タイ トル 画面 の 文字 の 色 を 変え た る た め に 、COLOR ス テー トメ ント を 使っ て いま す 。 
COLOR 色 番 号 の よう に 使い 、 そ の 色 番 号 は 、 次 の と お り で す 。 
黒 の 背景 色 に 次 の 色 で 文字 が 表示 きれ ます 一 
県 *0 青 :1 緑 *2 水 73 赤 :4 村 :5 次 :6 自 i7 
黒 の 背景 色 に 次 の 色 の 葵 に 黒 の 文字 が 表示 され ます 一 
黒 :8 青 :9 緑 :10 水 :11 赤 :12 紫 :13 黄 :14 白 :15 


DO 


U$ = INKEY$ 
LOOP UNTIL U$ >= "0" AND U$ <= "6" 





入力 され た 1 文字 を 検査 し て 、1 か ら 6 の 範囲 以外 の 文字 は 受け な いよ うに し て い 
- 人 


FOR I =1TO52 


SWAP CARD①, CARD(S1 *\ RND+ 1) 
NEXT 1 





カー ド を シャ ッ フ ル (混ぜ 合わ せる ) する プロ グラ ム で す 。32 枚 の カー ド が 必ず 
1 回 以上 交換 きれ ま す 。SWAP は 、 デ ー タ 内 容 を 交換 する ステ ー ト メン ト で す 。 
S1*RND+1 は 、 一 様 乱数 を 使っ て 1 か ら 52 ま で の 数 を 計算 し ます 。 こ れ に よっ て 、1 
番目 と 51*RND+1 番 目 の カ ー ド を 交換 する こと に な る の で す 。 


CARDHYOUZI CARD(SEIZA), 1S .4 


シャ ッ フ ル し た カー ド の 星座 番号 番目 の カー ド を 、 画 面 の 1S 行 4 列 目 の 位置 に 表示 
し ます 。 


PRINT "** キ キキ "KOTOBAS(VAL(US), 0): 「 ***w 


選択 され た 占い の 項目 の 名 称 を 表示 し ます 。U$ は 1 文字 入力 で 入力 され た 文字 型 
の デー タ な の で 、VAL で 文字 を 数 値 に 変え て 使っ て いま す 。 


PRINT KOTOBAS$(VAL(U$), CARD(SEIZA).KATA) 


選択 され た 項目 と 、 入 力 さ れ た 星座 番号 番目 の カー ド の 型 に 対応 し た 占い の 言葉 
を 表示 し ます 。 
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4. 4 占い 専用 の フロ ッ ピ ー デ ィ ス ク 


プロ グラ ム を 実際 に 利用 する 際 に 、 そ の 都度 Qu ick BASIC を 必要 する 
方 法 で は 、 使 い に く い の で 、 占い 専用 の フロ ッ ピ ー デ ィ ス ク を 作る こと に し ます 。 
占い 専用 の フロ ッ ピ ー デ ィ ス ク を 作る 手順 の 概要 は 次 の と お り で す 。 


1。 新しい フロ ッッ ピー ディス ク を 用 意 し て 、 シ ステ ム 付 き で フォ ー マ ッ ト を し ま 
す 。 
A ド ライ プ へ MS 一 DOS の シス テム ディ スク を セッ ト し 、B ド ライ プ ブ へ 新 
し い フ ロッ ピー ディ スク を セッ ト し て 、MS 一 DOS を 起動 の 後に 、 次 の よう 
太 入 力 し ます 。 


A>FORMAT B: / ぐ 


2。 プロ グラ ム で 作成 し た カー ド の キャ ラク タ の ファ イル (CARD.DAT) を 新しい フ 
ロッ ピー ディ スク へ コピ ビー し ます 。 
A ド ライ ブ へ CARD.DAT の 入っ た だ フロッピー ディ スク を セッ ト し 、B ド ライ ブ 
へ 新しい フロ ッ ピ ー デ ィ ス ク を セッ ト し て 次 の よう に 入力 し ます 。 


A>COPY A:CARD.DAT B: 


3 。 占い の プロ グラ ム の 中 の B:CARD.DAT を A:CARD.DAT と 変更 し ます 。 
詳細 は 、 次 の 節 で 説明 し ます 。 


4。Quick BASIC を 使っ て 、 占 い の プ ログ ラム か ら 実 行 形式 の プロ グ 
ラム を 作成 し 、 新 し い フ ロッ ピー ディ スク へ ヘコ ピー し ます 。 
詳細 は 、 次 の 節 で 説明 し ます 。 


5。 新 し い フ ロッ ピー ディ スク へ CONFIG.SYS 及 び AUTOEXEC.BAT の ファ イル を つく 
り ま す 。 
詳細 は 、 次 節 以 降 で 説明 し ます 。 


この よう に し て 作成 し た 占い 専用 の フロ ッ ピ ー デ ィ ス ク は 、 パ ソコ ン の 電源 を 入 


れ て A ド ライ ブ ヘ セッ ト す る だ け で 、 直 接 実行 が 開始 され て 、 占 い の タ イト ル 画 面 
が 表示 きれ る よう に な り ま す 。 
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4. 5 実行 用 の プロ グラ ム の 作成 


まず 、 占 い の プ ログ ラム の 一 部 を 改造 し ます 。 

これ まで AF ドライブ プ へ Qu i ck BASIC の シス テム を セッ ト し て 使用 し て 
いた の で 、 カ ー ド の キャ ラク タ の ファ イル を B ド ライ ブ へ 置い て 読み 取る よう に し 
て きま し た 。 し か し 、 占い 専用 の フロ ッ ピ ー デ ィ ス ク は A ド ライ ブ プ ベ ヘ モ セッ ト し て 使 
用 する こと に し ます か ら 、 カ ー ド の キャ ラク タ の ファ イル も AF ドラ イブ か ら 読 み 取 
る こと が で きる よう に 、B: を A: に 修正 する 必要 が ある の で す 。 


改造 する ステ ー ト メン ト は 次 の と お り で す 。 






改造 前 IOPEN "B:CARD.DAT" FOR RANDOM AS #1 LEN = LEN(DIAMOND) 


N 
OPEN "A:CARD.DAT" FOR RANDOM AS #1 LEN = LEN(DIAMOND) 


次 に 、 い よい よ 実 行 形式 の プロ グラ ム の 作成 を 行い ます 。 
(占い の プロ グラ ム は 、B:URANAI.BAS と いう 名 称 で 保存 し て ある も の と し ます 。) 


改造 後 


1。 マ ウス カー ソル を [R/ 実 行 ] に 合わ せ て 左 ク リッ ク す る と 、 次 の ウイ ンド ウ 
が 表示 され ます 。 


S/ 久 ター トド SHIFT+FS 
KR リス ター トド 


N/ 継 続 
CCOMMAND の 編集 .… 


FS 


X/ 実 行 フ ァイル 作成 .… 
の 2 7 


M/ メ イン モジ ュー ル の 設定 .… 
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マウ スカ ー ソ ル を [X/ 実 行 フ ァイル 作成 .…] に 合わ せ て 左 ク リッ ク す る と 、 次 
の ウイ ンド ウ が 表示 され ます 。 


X/ 実 行 フ ァイル 作成 
実行 ファ イル 名 と コン パイ ルス イッ チ を 設定 し て くだ さい 


N/ 実 行 フ ァイル 名 : | B:URANAIEXE 


[ ] D/ デ バッ グ (*) X/ ラ ンタ イム 分 離 弄 
( ) A/ 独 立 弄 


< M 実 行 フ ァイル 作成 > <E/ 実 行 ファ イル 作成 後 終了 > 


< 取消 > <H/ ヘ ルプ > 


実行 ファ イル 名 を 入力 する 欄 に マウ スカ ー ソ ル を 合わ せ て 、 キ ー ボ ー ド か ら 
B:URANAIEXE と 入力 し ます 。 


[( ) A/ 独 立 型 ] の ( ) に マウ スカ ー ソ ル を 合わ せ て 、 左 クリ ッ ク し ます 。 
する と 、〈($) と 表示 きれ ます 。 


< M 実 行 フ ァイル 作成 > に マウ スカ ー ソ ル を 合わ せ て 、 左 クリ ッ ク し ます 。 
作業 が 開始 し 、B ド ライ ブ の フロ ッ ピ ー デ ィ ス ク に 、URANAIEXE と いう 実行 
形式 の プロ グラ ム が 作ら れ ま す 。 

Quick BASIC を 終了 し て か ら 、4. 4 で シス テム フォ ー マ ッ ト し た だ 


フロ ッ ピ ー デ ィ ス ク を AF ドラ イブ に セッ ト し 、 次 の よう に 入力 し て URANAILEXE 
を コピ ビー し ます 。 


A>COPY B:URANAI.EXE A: 


QB 起動 ディ スク 


人 取り 奉 え る 
[| | ンス テム フォ ー マ ッ ト し た 
フロ ッ ピ ー デ ィ ス ク 
に し QB ワー ク デ ィ ス ク 
に へ 香 
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今 行っ た 作業 は 、 私 達 が 作っ た プロ グラ ム を 、 パ ソコ ン が 直接 的 に 使え を る よう に 
翻訳 し た プロ グラ ム を 作成 し た の で す 。 こ の プロ グラ ム の こと を 、 一 般 に オプ ジェ 
クト プロ グラ ム 、 実 行 用 の プロ グラ ム な ど と いい ます 。 それ に 対し て 、 最 初 に 作っ 
だ た だ プログ ラム を ソー スプ ログ ラム と いい ます 。 

これ ら の プロ グラ ム は 、 プ ログ ラム 名 の 3 桁 の 拡張 子 で 区 別 で きる よう に し て い 
ます 。 

ソー スプ ログ ラム URANAILBAS 
オブ ジェ クト プロ グラ ム (相対 形式 、 リ ン ケ ー ジ の 前 ) URANAIOBJ 
オプ ジェ クト プロ グラ ム (実行 形式 、 リ ン ケ ー ジ の 後 ) URANAIEXE 


実は せい 、 ソ ー ス プロ グラ ム か ら 直 接 に 実行 用 の プロ グラ ム を 作る の で は な く 、 も う 
ー つ の 工程 が あり ます 。 次 の 図 を 参考 に し て くだ さい 。 







オプ ジェ クト 
プロ グラ ム 


オグ ジェ グ ド 
プロ グラ ム 


URANAI.OBJ URANAI.EXE 








リン カー が 処理 し ます 
LINK.EXE 
BCOM45A.LIB 






これ が 実際 に 使う 
プロ グラ ム で すず 。 


Quick BAISC が 処理 し ます 
OB.EXE 

蛇足 な が ら 、 も う 一 つ 付 け 加 えま す 。 も し も 和信 。 で 【[C( ) XX ラン タイ ム 分 離 型 ] 
を 選択 し て 実行 用 の プロ グラ ム を 作っ た 場合 は 、URANALEXE の プロ グラ ム を 小さ く 
で きる メリ ッ ト が あり ます 。 た だ た だ し 、 こ の 場合 は BRUN45A.LIB の 助け を 借り て 動く の 
で 、URANAIEXE 及 び BRUN45AEXE を シス テム フォ ー マ ッ ト し た た フロッピー ディス ク に 
コビー し て 使う 必要 が あり ます 。 

BRUN45A.EXE の コピ ー は 、A ド ライ ブ へ QB 起動 ディ スク を 、B ド ライ ブ ヘ シス テ 
ム フ ォ ー マ ッ ト し だ た フロッピ ー デ ィ ス ク を セッ ト し て 次 の よう に 入力 し ます 。 


A>CD BIN 


A>COPY BRUN4SA.EXE B: 





L__]| QB 起動 ディ スク 


に ーー を シス テム フォ ー マ ッ ト し た 
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4. 6 自動 的 に 占い が 始ま る 


き て 、 新 し い フ ロッ ピー ディ スク に は 、 占 い の プ ログ ラム を 動か す た め の ファ イ 
ル が コピ ビー され て きま し た 。 ま ず 、 そ の 内 容 を 確認 し ます 。 

確認 の 方 法 は 、A ド ライ ブ に 4. 5 章 で 作成 し た フロ ッ ピ ビー デ ィ ス ク を セッ ト し 
て 次 の よう に 入力 し て [ 条 | を 押し ます 。 


DIR は 、 フ ロッ ピー ディ スク の ファ イル の リス ト を 見 る 機能 を も つ 命 令 で す 。 
する と 、 新 し い フ ロッ ピー ディ スク に ある ファ イル の リス ト が 表示 され ます 。 
表示 きれ る ファ イル は 、 次 の 3 つの ファ イル で す 。 

COMMAN.COM 

CARDDAT 

URANAILEXE 
(た だ し 、URANAILEXE が ラン タイ ム 分 離 型 の 場合 は 、BRUN45A.EXE が 必要 で ある 。) 


次 に 、 自 動 的 に 占い の プロ グラ ム が 起動 する た め の 仕掛 け を 加え ます 。 
次 の よう に 入力 し ます 。 1 行 目 を 入力 し た ら [ 条 | で 改行 し 、 続 いて 2 行 目 を 入力 
し た ら [CTRL] と Z を 同時 に 押し て きら に [| を 押し ます 。 


A>COPY CON AUTOEXEC.BAT 


URANAI 





これ で 完成 で す 。RESET を 押し て くだ さい 。 自動 的 に 占い の タイ トル 画面 が 
表示 され 、 こ こ か ら 占 い が 始 まり ます 。 


6 を 押し て 、 終 了 き せ て か ら 、 改 め て 、DIRIH| を 押し て くだ さい 。 
今度 は 、AUTOEXEC.BAT と いう ファ イル が 増え て いま す 。 こ の ファ イル は 、 自 動 的 


に プロ グラ ム を 起動 する 仕掛 け な の で す 。 


COPY CON.…. の CON は 、 コ ン ソ ー ル の CON で 、 こ こ で は 、 キ ー ボ ー ド か ら 入 力 し た 
内 容 を 、AUTOEXEC.BAT と いう 名 称 の ファ イル に コピ ー し な さい と いう 意味 で す 。 
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第 9 章 

五 ミ 

電話 帳 

シー ケン シャ ルフ ァイル ・ ラ ンダ ム ア ク セ 
ス フ ァ イル の 基本 を 学び ます 。 





5. 1 電話 帳 の 読み 書き 


電話 帳 は 、 誰 も が 日 常に 使う 小道 具 で デー タ の 内 容 に つい て 特に 説明 する 必要 も 
な い の で 、 パ ソコ ン の プロ グラ ム の 学習 の た め に 格好 な 教材 で す 。 個 人 の 電話 帳 自 
体 は 小さ い 手 帳 に 書い て お け ば 十分 間に合う の で す が 、 パ ソコ ン の 電話 帳 を 拡大 し 
て 、 得 意 先 管理 シス テム に 発展 させ る こと も 可能 だ と 思い ます 。 


電話 帳 フ ァイル の 作り 方 と し て 、 ま ず シ ー ケ ン シ ャ ルフ ァイル と し て つく る 方 法 
が あり ます 。 

この 方 法 は 、 他 の いろ いろ な ソフ ト で 電話 帳 の デー タ を 利用 で きる 便利 な 形式 で 
す 。 し か し 、VTR の テー プ と 同様 に テー プ の 中 の 一 部 の み を 容易 に 書き 換え る こ 
と が で き な い と いう こと 、 読 み 書き が 低速 に な る こと 、 デ ー タ の 量 が 大 きく な る こ 
と 、 あ る 一 部 を 読む た め に も ゃ 最初 か ら 順 序 に 読む 必要 が ある こと な ど 、 多 く の 和 欠点 
が あり ます 。 


シー ケン シャ ルフ ァイル へ の 書き 込み の プロ グラ ム の 構造 は 次 の と お り で す 。 





名 前 が "E" な ら ば 電話 帳 を 閉じ て 終了 する 
電話 番号 を 入力 する 


電話 帳 に 書き 込む 





* 電 話 帳 1 シー ケン シャ ルフ ァイル へ の 書き 込み 

CLS * 画 面 消去 

OPEN "B:DENWA.DAT" FOR OUTPUT AS #1 * 電 話 帳 を 開く 

DO * 繰 り 返 す 
INPUT "名 前 (終了 :E) : ", NAMAES$ * 名 前 の 入力 (終了 時 は E) 
ITF NAMAE$ = "E" THEN * 名 前 が E な ら ば 


CLOSE #1 * 電 話 帳 を 閉じ て 
END * 終 了 


END TEF 

INPUT "電話 番号 : ",BANGOU$ * 電 話 番号 の 入力 

WRITE #1, NAMAE$, BANGOU$ * 電 話 帳 へ の 書き 込み 
LOOP 
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この プロ グラ ム で 次 の デー タ を 入力 する と 、 フ ロッ ピー ディ スク に は 次 の よう に 
記憶 され て いま す 。 


1 。 デー タ の 例 





2. フロ ッ ピ ー デ ィ ス ク へ の 記憶 の 状態 


22 8D B2 93 AI 81 40 89-D4 8E 71 22 2C22 82 3 "佐藤 花子 "." 4 
82 34 81 7C 82 36 82 37-82 38 82 53 22 0D0A22 5 一 7894".…" 
88 E4 8F E3 81 40 8D 4B-91 BE 98 5922 2C2282 井上 幸太 郎 "." 7 
36 82 37 81 7C 82 33 82-34 82 51 82 52220D0A 8 一 6523".… 
22 8E 32 93 63 81 40 8C-92 88EA 22 2C22 82 S0 "山田 健一 "," 1 
82 51 81 7C 82 33 82 34-82 52 82 52220D0A22 2 一 453 3".…" 
8D B2 81 38 96 D8 81 40-8D 4E 8E71222C2282 佐々 木 康子 ","8 
57 82 54 81 7C 82 36 82-34 82 53 82 56220D0A 5 一 7547".. 
22 8B DF 93 Al 81 40 8D-4B 8E 7D222C228254 "近藤 幸枝 "."5 
82 335 81 7C 82 37 82 34-82 54 82 51220D0A00 6 一 8552".… 


左 の プロ ッ ク は 1 6 進数 で 表記 し て あり 、 右 の ブロ ッ ク は コー ド で 対応 する 文字 
で 前 直し で あり ます 。 

デー タ を ダブ ルク ォ ー テ ーション で 区 切る 形式 で すか ら 、 他 の ソフ ト で も 容易 に 
読む せこ と が で きま す 。 


OPEN "B:DENWA.DAT" FOR OUTPUT AS #1 


電話 帳 を 、 シ ー ケ ン シ ャ ルフ ァイル と し て 新た に 作成 する ステ ー ト メン ト で す 。 


B: は 、B ド ライ ブ の フロ ッ ピ ー デ ィ ス ク や ヤ や ハードディスク に 、 電 話 帳 を つく る こ 
と を 意味 し て いま す 。 

DENWAJDAT は ファ イル 名 で 、 プ ログ ラム を つく る 人 が 任意 に 名 前 を 付け る こと が 
で きま すか ら 、 分 りや すい めい 名 前 を 付け る こと が 大 切 で す 。 フ ァイル 名 の うち 、DAT 
の 部 分 は 拡張 子 と いい ます 。 拡 張子 は 一 般 的 に ファ イル の 性 格 を 表し 、 例 えば この 
DAT は ファ イル の 内 容 が デー タ で ある こと を 表し て いま す 。 他 に も DOC (操作 手引 な 
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ど 説 明 書 の ファ イル ) 、BAS (BASIC の ソー スプ ログ ラム ) な ど が あり 、 中 で も 
BAT (バッ チ フ ァイル ) 、EXE、COM (実行 型 の プロ グラ ム ) 、 な ど は 必ず この 名 前 で 
な けれ ば な り ま せん 。 

FOR OUTPUT は 「 出 力 (書く ) の た め の 」 と いう こと で す 。 し か し 、 同 じ 出 力 で も 
すでに 存在 する ファ イル に 追加 し て 書き 込む 場合 に は 、FOR APPEND と し ます 。 

また 、 入 力 (読む ) の 場合 は 、FOR INPUT と し ます 。 


INPUT "名 前 (終了 :E) :・ "。NAMAE$ 


キー ボー ド か ら 入 力 し た デー タ を NAMAE$ と いう 文字 型 の 容器 に 入れ る と いう こと 
で す 。 


"名 前 (終了 :E) : "は 、 入 力 する 内 容 に つい て 案内 する メッ セー ジ で す 。 

名 前 は 一 般 に 漢字 で 入力 し ます の で 、 入 力 す る よう 求め られ た ら [CTRL| を 押し な 
が ら [XFER| を 押し て 漢字 入力 モー ド に し て か ら 、 名 前 や 電話 番号 を 入力 し ます 。 名 
前 の 入力 の 終了 時 に は 、 こ こ で 半角 の 大 文字 の E を 入力 する よう 求め て いま す 。 大 文 
字 と 小文字 と 区 別して いる の で 、 小 文字 の e を 入力 する と 名 前 が な と いう こと に な っ 
て し まい ます 。 終了 の た め に E を 入力 する 際 は 、 再 び [CTRL|] を 押し な が ら [XFER] を 押 
し て 、 英 数 モー ド に 戻し て か ら 入 力 し ます 。 

"と NAMAE$ の 間 に , (カン マ ) が あり ます が 、 こ れ を : (セミ コロ ン ) に 替 える と 、 
画面 上 で 入力 を 求め る 際 に ? を 表示 し ます 。 


WRITE #1, NAMAE$, BANGOU$ 


シー ケン シャ ルフ ァイル #1 へ NAMAE$ と BANGOU$ の 内 容 を 書き 込む た め の ス テー トメ 
ント で す 。 


#1 は 、 フ ァイル を 扱う 際 の 番号 で 、OPEN ス テー トメ ント で 決め た も の を 使い ます 。 
従っ て 、OPEN ス テー トメ ント で AS#2 と あれ ば 、WRITE #2。・・・ と な る の で す 。 
WRITE ステ ー ト メン ト の 特徴 は 、 フ ァイル の 中 の デー タ の 表記 に お いて 、 文 字 列 は 
" (ダブ プル クォーテーション ) で 囲ま れ 、 デ ー タ の 区 切り に は 。( カ ンマ ) が 入れ 
られ る と ころ に あり ます 。 こ うす れ ば 、 他 の いろ いろ な パソ コン ソフ ト で も 、 こ の 
ファ イル を 利用 で きる の で す 。 

も し も PRINT #1,・‥ と する と 、 画 面 に 表示 きれ る と き と 同 様 に 区 切り 記号 が な い 
の で 、 デ ー タ を 読み 取り に くい ファ イル に な り ま す 。 
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次 に 、 シ ー ケ ン シ ャ ルフ ァイル の 電話 帳 を 読ん で 画面 へ 表示 し ます 。 
この プロ グラ ム の 構造 は 次 の と お り で す 





ファ イル の 終り 
まで 繰り 返す 


名 前 、 電 話 番号 を 読む 
電話 帳 を 閉じ て 終了 する 














> 電話 帳 2 シー ケン シャ ルフ ァイル を 読ん で 画面 表示 

CLS * 画面 消去 

OPEN "B:DENWA.DAT" FOR INPUT AS 旨 "電話 帳 を 開く 
DO UNTIL EOF(1) * フ ァイル の デー タ が な く な る まで 繰り 返す 


INPUT #1, NAMAE$, BANGOU$ * 電 話 帳 を 読む 
PRINT NAMAE$, BANGOU$ * 画面 表示 
LOOP 


CLOSE # * 電 話 帳 を 閉じ る 
END 





DO UNTIL EOF(1) 


「 フ ァイル #1 が 終り に な る まで 繰り 返す 」 と いう こと で す 。 


EOF(1) が 「 フ ァイル #1 の 終り 」 の 信号 を 出す 関数 で す 。EOF(2) な ら ば 「 フ ァイル 
#2 の 終り 」 と いう こと で す 。 


UNTIL EOF(1) は 、DO・・‥LOOP UNTIL EOF(1) の よう に 、LOOP の 後に 書い て も 同じ 


守 す 。 
INPUT #1, NAMAE$, BANGOU$ 


「 名 前 、 電 話 番号 を ファ イル #l か ら 読 むせ ] こと で す 。 
シー ケン シャ ルフ ァイル #1 へ WRITE #1,・‥ で 書き 込ん だ ファ イル を 読む と き に は 
INPUT #1,・ を 使う の で す 。 


な お 、PRINT を LPRINT に 変更 する と 、 印 刷 さ きれ ま す 。 
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次 に 、 シ ー ケ ン シ ャ ルフ ァイル の 電話 帳 に デー タ を 追加 入力 する プロ グラ ム を 作 


り ます 。 
この プロ グラ ム の 構造 は 次 の と お り で す 。 










電話 帳 へ の 
追加 入力 
シー ケン ン シ ャ ノリ 
ファ イル 














名 前 が "E" な ら ば 電話 帳 を 閉じ る 
電話 番号 を 入力 する 






* 電 話 帳 3 。 シー ケン シャ ルフ ァイル へ の 追加 入力 

CLS * デ 画面 消去 

OPEN "B:DENWA.DAT" FOR APPEND AS #1 * 一 電話 帳 を 開く 

DO * 一 繰り 返す 
INPUT "名 前 (終了 :E) ・ ",。 NAMAE$ * デ 名 前 の 入力 (終了 時 は E) 
IF NAMAES$ = "EE" THEN *ー 名 前 が E な ら ば 


CLOSE #1 * 一 電話 帳 を 閉じ て 
END * 終 本 
END IF 
INPUT "電話 番号 : "。BANGOU$ * 一 電話 番号 の 入力 
WRITE #1, NAMAE$, BANGOU$ * 一 電話 帳 へ の 書き 込み 
LOOP 





OPEN ステ ー ト メン ト の FOR APPEND は 、 シ ー ケ ン シ ャ ルフ ァイル へ の 追加 入力 を す 


る 際 に 使い ます 。 
その 外 は 、 電 話 帳 1 の プロ グラ ム に 同じ で す 。 


以上 の よう に 、 シ ー ケ ン シ ャ ルフ ァイル の 読み 書き は 単純 で 分 りや すい の で す が 、 
デー タ の 一 部 を 訂正 する た め に は 、 別 に ファ イル を 作成 し て これ に コピ ー し な が ら 
訂正 部 分 を 探し て 書き 直す と いう 覆 雑 な 手順 を 必要 と し ます 。 ま た 、 多 量 の デー タ 
の 中 か ら あ る 特定 の デー タ を 読む 場合 も 、 最 初 か ら ひ と つ ひ と つ 読 みな が ら 探 す 必 


要 が あり ます 。 


この よう な こと か ら 、 次 に 学ぶ ラン ダム アク セス ファ イル が 、 使 われ る よう に な 
り ま し た 。 
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D。 盆 ラ ング ゲ グ ム アグ み 宅 スプ ァ オ ル 


電話 帳 を ラン ダム アク セス ファ イル で 作り ます 。 

ラン ダム アク セス ファ イル は 、 名 前 の と お り ラ ンダ ム に アク セス で きる (任意 の 
位置 の デー タ を 読み 書き で きる ) ファ イル で すか ら 、 デ ー タ の 訂正 や 検索 に 便利 で 
す 。 ま た だ た 、 読 み 書 き の 速 度 も 比較 的 速い よう で す 。 

ラン ダム アク セス ファ イル へ の 書き 込み の プロ グラ ム の 構造 は 次 の と お り で す 。 


レコ ー ド の 型 を 決め る 
レコ ー ド 名 と その 型 を 決め る 
画面 消去 

電話 帳 を 開く 
名 前 を 入力 する 
名 前 が "E" な ら ば 電話 帳 を 閉じ て 終了 する 
電話 番号 を 入力 する 


レコ ー ド 番号 を 計算 する 
電話 帳 に 書き 込む 


ラン ダム アク セス ファ イル へ の 書き 込み 
* 整数 型 変数 : レコ ー ド 番号 
"DENWATYPE と いう タイ プ を 決め る 








レコ ー ド 番号 を 0 に する 








NAMAE AS STRING * 14 * 名 前 は 14 桁 (全角 7 字 ) 
BANGOU AS STRING * 16 * 電 話 番号 は 16 桁 (全角 8 字 ) 
S AS INTEGER * レ コー ド の 削除 の シル シ 
END TYPE 
DIM DENWA AS DENWATYPE * レ コー ド の タイ プ は DENWATYPE 
CLS * 画 面 消去 


OPEN "B:DENWA.DAT" FOR RANDOM AS #1 LEN = LEN(DENWA) * 電 話 帳 を 開く 
I=O0 * レ コー ド 番 号 を 0 に する 
DENWA.S = -1 * レ コー ド は 有効 
DO * 人 数 分 繰り 返す 
INPUT "名 前 (終了 :E) : ", N$ * 名 前 の 入力 (終了 時 は ) 
IF N$ = "E" THEN > 名 前 が E な ら ば 
CLOSE #1 * 電 話 帳 を 閉じ て 
END * 終 了 
END 中 
DENWA.NAMAE = N$ *N$ を 名 前 ヘコ ピー 
INPUT "電話 番号 : ",DENWA.BANGOU * 電 話 番号 の 入力 
IT=I+1 * レ コー ド 番 号 へ 1 を 加え る 
PUT #1, 1, DENWA * 電 話 帳 へ の 書き 込み 
LOOP 
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レコ ー ド 型 の 型 を 設定 する ステ ー ト メン ト で す 。 レ コー ド と は 、 1 件 分 の デー タ 
を いい ます 。 この 1 件 分 の デー タ を 構成 する 各 項 目 の 名 前 と 大 き さ を まとめ て 、 レ 
コー ド の 型 と し て 設定 し て いる の で す 。 

DENWATYPE は 、 プ ログ ラム を 作る 人 が 任意 に 決め る 型 の 名 前 で す 。 名 前 の 終り に 
TYPE を 付け る 必要 は あり ませ ん が 、 こ れ に よっ て 他 の 型 の 名 前 と 区 別して いま す 。 

S は 、 レ コー ド の 削除 の シル シ で す 。 こ の レコ ー ド が 生き て いる と き は -1( マ 付 21) 
を 、 削 除 の シル シ を 0O( ゼ の と し ます 。 実は 、 あ る 特定 の レコ ー ド だ け を 実際 に 削除 
する に は 複雑 な 手順 を 必要 と する の で 、 こ こ で は 、 削 除 の シル シ を 付け て 削除 の 扱 
い に し ま す 。 こ れ に よっ て 、 削 除 し た レコ ー ド の 復活 も 可能 に な り ま す 。 


DIM DENMA AS DENWATYPE 


実際 の レコ ー ド を DENWA と 名 付け て 、 こ の レコ ー ド の 構造 を DENWATYPE で ある と 設 
定 し て いま す 。 そこで 、DENWA は 、NAMAE、BANGOU、S$ の デー タ を 包括 し た レコ ー ド 名 
と いう こと に な り 、 こ れ ら の デー タ の すべ て を DENWA と いう 名 前 で 取り 扱う こと が で 
きま す 。 ま た 、NAMAE の み を 使う 場合 は DENWANAMAE と いう 名 で 、BANGOU の み を 使う 
場合 は DENWA.BANGOU と いう 名 で 扱う こと が で きま す 。 


OPEN "B:DENWA.DAT" FOR RANDOM AS #1 LEN = LEN(DENWA) 


ラン ダム アク セス ファ イル の 使用 を 開始 する ステ ー ト メン ト で す 。 

ラン ダム アク セス ファ イル に は 、 レ コー ド や デー タ の 各 項 目 間 に 区 切り 記号 は な 
く 、 最 初 に 定め た レコ ー ド の 大 き さ を も と に し て 所 定 の レコ ー ド 位置 に 読み 書き す 
る よう に な っ て いま す 。 そ こ で 、LEN= で レコ ー ド の 長 さ を 書き ます 。 右辺 の LEN 
は 、 レ コー ド の 長 さ を 計算 する 関数 で す 。 従っ て LEN = LEN(DENWA) は 、 「 レ コー ド 
の 長 さ は DENWA の 長 さ で す 」 と いう こと で す 。 


エニ = ニ エ +1 


ラン ダム アク セス ファ イル は 、 デ ー タ を 端 か ら 順 に 入出 力 し な い の で 、 入 出力 の 
際 に レコ ー ド の 位置 を 指示 する 必要 が あり ます 。 こ れ を ここ で は レコ ー ド 番号 と 呼 
ん で いま す 。 レ コー ド 番 号 の 容器 は 、 最 初 は ゴロ に し て お き (I =0) 、 デ ー タ を 入 
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力 す る だ た ぴ に 1 を 加え る (I =』+1) よう に し まし た 。 


PUT #1. IT,。 DENWA 


ラン ダム アク セス ファ イル #1 に 書き 込む ステ ー ト メン 


DENWA は 書き 


込む レコ ー ド で すず 。 


ラン ダム アク セス ファ イル の 記憶 の 状態 


レコ ー ド 名 


レ ョ ー ド 枯 


っ 


TE DENWABANGOU| DENWA.S 
文字 列 14 | 文字 列 16 整数 2 


半角 宅 白 4 






88 E4 SF 
82 S7 81 
SE 32 93 
82 51 81 
8D B2 81 
82 S4 81 
8B DF 93 
82 SS 81 


ト で す 。1 は 書き 込む 位置 で 


ーー トー ーー つこ トー 


1 レコ ー ド の 長 さ は 32 バ イト で す 


7 ぁ 9 1 
E3 81 40 8D 4B-91 BE 98 
7C 82 53 82 54-82 S1 82 
63 81 40 8C 92-88 EA 20 
7C 82 53 82 54-82 52 82 
358 96 D8 81 40-8D 4E SE 
7C 82 36 82 54-82 S3 82 
A1 81 40 8D 4B-8E 7D 20 
7C 82 57 82 S4-82 S4 82 


359 
52 
20 
92 
71 
56 
20 
51 


20 
20 
20 
20 
20 
20 
20 
20 


20120120120 82 3 
20120| 還 玉 


半角 空白 整数 1 


20 82 56 
20 FF FF 
20 82 50 
20 FF FF 
20 82 57 
20 FF FF 
20 82 54 
20 FF FF 


14+16+2 


佐藤 花子 
5 一 7894 


井上 幸太 朗 
8 一 6523 
山田 健一 
2 一 4533 
佐々 木 康子 
5=7547 
近藤 幸枝 
6 一 8552 


選 


漢字 は 、 そ れ ぞ れ の 漢字 コー ド (シフ ト 本 IS コー ド ) で 記憶 し て いま す 。 
整数 の -1 は 、 フ ロッ ピー ディ スク 上 で は 、 


と 表現 し て 記憶 し て いま す 。 

で は 、 他 の 整数 は どの よう に 記憶 さき れる の で し ょ うか 。 

$ 一 05 00 4 一 04 00 3 一 03 00 2 一 02 00 1 一 01 00 
-1-FFFF  -2 一 FEFF  -3 一 FDFF  -4 一 FCFF  -S$ 一 EB FF 


$ は 、00 05 を 左右 入れ 換え て 0S 00 と 記憶 し ます 。 マ イナ ス の 整数 は 補 数 で 表し ま 


-1 の 文字 コー ド で は な く -1 の 値 を FF FF 


0 一 00 00 


す 。10 進 数 で は 1 の 補 数 は 9 で す が 、16 進 数 で は F な の で -1 は EFF FF に な り ま す 。-2 の 


補 数 は FF FE な の で す が 、 


し で ゆい ます ず 。 


次 に 、 ラ ンダ ム ア ク セス ファ イル を 読ん で その 内 容 を 画面 に 表示 し ます 。 こ の プ 


ログ ラム の 構造 は 次 の と お り で す 。 
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パソ コン の 都合 で 左右 入れ 換え て FE FF と いう よう に 記憶 


ゃ 





レコ ー ド の 型 を 決め る 
レコ ー ド 名 と その 型 を 決め る 

画面 消去 

電話 帳 を 開く レコ ー ド 番号 を 0 に する 


1 レコ ー ド を 読む 
電話 帳 を 閉じ る 


* 電 話 帳 5 ラン ダム アク セス ファ イル を 読ん で 画面 表示 

CLS * 画 面 消去 

DEFINT I * レ コー ド 番 号 

TYPE DENWATYPE "DENWATYPE と いう タイ プ を 決め る 
NAMAE AS STRING* 14 * 名 前 は 14 桁 (全角 7 字 ) 
BANGOU AS STRING * 16 * 電 話 番号 は 16 桁 (全角 8 字 ) 
S AS INTEGER * レ コー ド の 削除 の シル シ 

END TYPE 

DIM DENWA AS DENWATYPE * レ コー ド の タイ プ は DENWATYPE 










電話 帳 を 読む 








OPEN "B:DENWA.DAT" FOR RANDOM AS #1 LEN = LEN(DENWA) * 電 話 帳 を 開く 
FOR 1 = 1 TO LOF(1) \ LEN(DENWA) "レコ ー ド の 数 だ け 繰 り 返 す 
GET #1, 1, DENWA * 読 む 
PRINT t DENWANAMAE: DENWA.BANGOU: DENWA.S 
NEXTI 
CLOSE # 


END 


OPEN "B:DENWA.DAT" FOR RANDOM AS #1 LEN = LEN(DENWA) 


ラン ダム アク セス ファ イル の 場合 は 、 読 み 込み も 書き 込み も 開き 方 は 同じ で す 。 





FOR != 1 TO LOF(1) \ LEN(DENWA)・・・・ NEXT I 


LOF(1) は ファ イル 番号 1 の ファ イル の 長 さ (バイ ト 数 ) 、LEN(DENWA) は 1 レコ ー ド 
の 長 さ (バイ ト 数 ) 、\ は 整数 の 割り 算 で す 。LOF(1) \ LEN(DENWA) は レコ ー ド の 数 
を 計算 し て いる の で 、 こ の ルー プ は レコ ー ド の 数 だ け 繰 り 返 すこ と に な り ま す 。 

GET #1. 1, DENWA は 、 ラ ンダ ム ア ク セス ファ イル # の レコ ー ド 番号 I 番 の レコ ー ド 
を 読み ます 。 フ ァイル か ら 読 むと き は DENWA で よい の で す が 、 画 面 表 示 の と き は 、 
DENWANAMAE: DENWAJBANGOU: DENWA.S: の よう に 項目 別に 書き ます 。 
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次 に 、 ラ ンダ ム ア ク セス ファ イル に デー タ を 追加 入力 する プロ グラ ム を 作り ます 。 
この プロ グラ ム の 構造 は 次 の と お り で す 。 






レコ ー ド の 型 を 決め る 
レコ ー ド 名 と その 型 を 決め る 
画面 消去 

電話 帳 を 開く 












名 前 を 入力 する 

名 前 が "E" な ら ば 電話 帳 を 閉じ て 終了 する 
電話 番号 を 入力 する 
レコ ー ド 番号 を 計算 する 
電話 帳 に 書き 込む 











ダム アク セス ファ イル へ の 追加 の 書き 込み 
* レ コー ド 番 号 
"DENWATYPE と いう タイ プ を 決め る 
NAMAE AS STRING * 14 * 名 前 は 14 桁 (全角 7 字 ) 
BANGOU AS STRING * 16 * 電 話 番号 は 16 桁 (全角 8 字 ) 
S AS INTEGER > レコード の 削除 の シル シ 
END TYPE 
DIM DENWA AS DENWATYPE * レ コー ド の タイ プ は DENWATYPE 


CLS * 画 面 消去 
OPEN "B:DENWA.DAT" FOR RANDOM AS #1 LEN = LEN(DENWA) * 電 話 帳 を 開く 
I = LOF(1) \ LEN(DENWA) * レ コー ド の 数 を 計算 する 


DENWA.S = -1 * レ コー ド は 有効 
DO * 人 数 分 繰り 返す 
INPUT "名 前 (終了 : 互 ) : ", NS * 名 前 の 入力 (終了 時 は E) 
IF N$ = "E" THEN > 名 前 が E な ら ば 
CLOSE #1 * 電 話 帳 を 閉じ て 
END * 終 了 


END TE 
DENWA.NAMAE = N$ "N$ を 名 前 ヘコ ビー 
INPUT "電話 番号 : ",DENWA.BANGOU * 電 話 番号 の 入力 
TI= ニ I+1 * レ コー ド 番 号 へ 1 を 加え る 
PUT #1, 1, DENWA * 電 話 帳 へ の 書き 込み 

LOOP 

END 


IT= LOF(1) \ LEN(DENWA) 


追加 入力 な の で 、 す で に 存在 する レコ ー ド の 数 を 計算 し て 1I に 代入 し ます 。 そ し て 
I =I+ 1 で 追加 の レコ ー ド 番号 を 計算 し て 、PUT ス テー トメ ント で 書き 込み ます 。 
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5. 3 電話 番号 の 検索 と 訂正 


電話 帳 は 、 電 話 番号 を 知る た め に あり ます 。 そこで 、 名 前 を 入力 する と 、 電 話 番 
号 が 表示 きれ る プロ グラ ム を 作り ます 。 

この よう な 仕事 を 一 般 に は 検索 と いい ます 。 名 前 が 明確 で な い 場 合 も ある の で 、 
例え ば 佐藤 の 佐 や 藤 の み を 入力 し て も 、 検 索 で きる よう に し ます 。 

この プロ グラ ム の 構造 は 次 の と お り で す 。 













レコ ー ド の 型 を 決め る 
レコ ー ド 名 と その 型 を 決め る 
画面 消去 

電話 帳 を 開く 








検索 する 名 前 の 入力 
も し も 、E な ら ば 電話 帳 を 閉じ て 終了 
検索 する 名 前 が な いし る し を 付け る 
電話 帳 を 読む 
も しゃ 検索 し て いる 名 前 な ら ば 、 


レコ ー ド の 内 容 を 画面 表示 する 
検索 する 名 前 が ある し る し を 付け る 


検索 する 名 前 が な いし る し な ら ば 、 
名 前 が な いこ と を 画面 表示 する 

* 電 話 帳 7 ラン ダム アク セス ファ イル の 検索 

DEFINT A, 1 * 整数 型 変数 










TYPE DENWATYPE "DENWATYPE と いう タイ プ を 決め る 
NAMAE AS STRING * 14 * 名 前 は 14 桁 (全角 7 字 ) 
BANGOU AS STRING * 16 * 電話 番 号 は 16 桁 (全角 8 字 ) 
$ AS INTEGER * レ コー ド の 削除 の シル シ 
END TYPE 
DIM DENWA AS DENWATYPE > レコ ー ド の タイ プ は DENWATYPE 
CLS * 画 面 消去 
OPEN "B:DENWA.DAT" FOR RANDOM AS #1 LEN = LEN(DENWA) * 電 話 帳 を 開く 
DO 
INPUT "検索 し た い 名 前 を 入力 し て くだ さい 。 (一 部 も 可 、 終 了 :E) ", 
KENSAKUGO$ * 検 索 語 の 入力 
IF KENSAKUGO$ = "E" THEN * も し ゃ 、 検 索 語 が E な ら ば 
CLOSE #1 * 電 話 帳 を 閉じ て 
END * 終 了 す る 
END IF 
A=0 検索 し て いる 名 前 が な いし る し 
FOR I = 1 TOLOFG1) \ LEN(DENWA) * レ コー ド の 数 だ け 繰 り 返 す 


GET #1。 1T。 DENWA * 読 む 
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IF KINSTR(DENWA.NAMAE, KENSAKUGO$) > O AND DENWA.S THEN 
* も しゃ 、 名 前 に 検索 語 が あっ て 、 そ れ が 有効 な レコ ー ド な ら ば 
PRINT I。 DENWA.NAMAE: DENWA.BANGOU * レ コー ド を 画面 表示 する 
A=1 * 検 索 し て いる 名 前 が ある し る し 
END IF 


NEXT I 
IF A=O THEN * る しゃ 、 検 索 し て いる 名 前 が な いな ら ば 
PRINT "該当 する 名 前 は あり ませ ん 。" * な いこ と を 画面 表示 する 





IF KINSTR(DENWA. NAMAE, KENSAKUGO$) > 0 AND DENWA.S THEN 


KINSTR(DENWA.NAMAE,KENSAKUGO$) は 、DENWANAMAE の 文字 列 の 中 に 検索 の た め に 入 
力 し た KENSAKUGO0$ が あれ ば 、 そ の 文字 の 位置 を 計算 し ます 。 例え ば 、DENWANAMAE が 
佐々 木 幸一 郎 で KENSAKUGO$ が 木 な ら ば 、A = KINSTR(DENWA.NAMAE, KENSAKUGO$) の 
計算 結果 は 3 に な り ま す 。 す な わ ち 、 木 は 佐々 木 の 3 番目 の 文字 だ か ら で す 。KINSTR 
関数 は 漢字 (2 バイ ト 文 字 ) 専用 の 関数 で 、 半 角 の 英 数 の 文字 (1 バイ ト の 文字 ) 
に は INSTR 関 数 を 使い ます 。 

IF KINSTR(DENWA.NAMAE, KENSAKUGO$)> 0 は 、KINSTR 関 数 に よっ て 文字 が あれ ば 
プラ ス の 整数 が 、 文 字 が な けれ ば ゼロ が 計算 きれ る の で 、「 も し も ゃ 、 検 索 し て いる 
文字 だ あれ ば 」 と いう こと に な り ま す 。 

AND は 、AND の 前 後 の 条件 が 同時 に 真 (同時 に 成立 する ) な ら ば 、 と いう 意味 で す 。 

DENWA.S は 条件 の よう に 見 えな い の で す が 、 パ ソン コン は -1 な ら ば 真 (成立 する ) と 
解釈 し ます か ら 、 こ れ だ け で DENWA.S が 真 な ら ば 、 と いう 条件 に な り ま す 。 DENWA.S 
に は あら か じ め -1 (マイ ナス 1) を 入れ て お いて 、 真 で あれ ば この レコ ー ド が 有効 
で ある (削除 され て いな い ) と 判断 させ ます 。 し た が っ て 、 削 除 を する と き に は 、 
DENWA.S に 0 を 入力 し て お くわ け で す 。 


画面 表示 の 例 
検索 し た い 名 前 を 入力 し て くだ さい 。 (一 部 も 可 、 終 了 :E) 藤 


1 佐藤 花子 45 一 7894 
2 近藤 幸枝 56 一 8552 


検索 し た い 名 前 を 入力 し て くだ さい 。 (一 部 も 可 、 終 了 :E) 上 田 
検索 し て いる 名 前 は あり ませ ん 。 
検索 し た い 名 前 を 入力 し て くだ さき さい 。 (一 部 も 可 、 終 了 :E) E 
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次 に 、 ラ ンダ ム ア ク セス ファ イル の 訂正 の プロ グラ ム を 作り ます 。 
訂正 は 、 1 レコード ず つ 点 検 し な が ら 行 う 方 法 や 、 す べ て の レコ ー ド の 一 覧 表 か 
ら 一 括 し て 訂正 を 入力 する 方 法 を ど あ り ま す が 、 こ こ で は 訂正 すべ き レ コー ド を 検 


索 し て 訂正 する 方 法 で 行い ます 。 


プロ グラ ム の 構造 は 次 の と お り で す 。 










繰り 返す レコ ー ド 
の 数 だ け 


繰り 返す 


レコ ー ド の 型 を 決め る 
レコ ー ド 名 と その 型 を 決め る 
画面 消去 

電話 帳 を 開く 





検索 する 名 前 の 入力 
も し も 、E な ら ば 電話 帳 を 閉じ て 終 
訂正 する 名 前 が な いし る し を 付け る 


電話 帳 を 読む 
も し ゃ 検索 し て いる 名 前 な ら ば 、 
レコ ー ド の 内 容 を 画面 表示 する 
訂正 する 名 前 が ある し る し を 付け る 


訂正 する 名 前 が ある し る し な ら ば 、 


レコ ー ド 番号 を 入力 する 

N で な いな ら ば 、 
確認 の た め 再 び 読 ん で 表示 し 
正 し い 名 前 と 電話 番号 を 入力 する 
訂正 し た レコ ー ド を 電話 帳 へ 書き 込む 


訂正 する 名 前 が な いし る し な ら ば 、 
名 前 が な いこ と を 画面 表示 する 








"電話 帳 8 
DEFINT A, 1,T 
TYPE DENWATYPE 
NAMAE AS STRING * 14 
BANGOU AS STRING * 16 


S AS INTEGER 
END TYPE 
DIM DENWA AS DENWATYPE 


CLS 


OPEN "B:DENWA.DAT" FOR RANDOM AS #1 LEN = LEN(DENWA) 


DO 


INPUT "訂正 し た い 名 前 を 入力 し て くだ さい 。 


IF KENSAKUGO$ = " 世 "THEN 
CLOSE #1 
END 

END IF 

A=0 


ラン ダム アク セス ファ イル の 訂正 


* 整数 型 変数 
DENWATYPE と いう タイ プ を 決め る 
* 名 前 は 14 桁 (全角 7 字 ) 

* 電話 番号 は 16 桁 (全角 8 字 ) 

> レコ ー ド の 削除 の シル シ 


* レ コー ド の タイ プ は DENWATYPE 
"画面 消去 
"電話 帳 を 開く 


(一 部 も 可 、 終 了 :E) ", 


KENSAKUGO$ * 検 索 語 の 入力 
* も し ゃ 、 検 索 語 が E な ら ば 

* 電 話 帳 を 閉じ て 

* 終 了 す る 


* 該 当 の 名 前 が な いし る し 
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FOR I = 1 TOLOF(1) \ LEN(DENWA) > レコ ー ド の 数 だ け 繰 り 返 す 
GET #1, 1, DENWA > 読む 
IF KINSTR(DENWA.NAMAE, KENSAKUGO$) > O AND DENWA.S THEN 
* も し ゃ も 、 名 前 に 検索 語 が あっ て 、 そ れ が 有効 な レコ ー ド な ら 
PRINT I: DENWA.NAMAE: DENWA.BANGOU "レコ ー ド を 画面 表示 する 


A=1 * 訂 正す る 名 前 が ある し る し 
END IF 
NEXT I 
SELECT CASE A 
CASE 1 
INPUT" 訂 正す る レコ ー ド 番号 を 入力 し て くだ さい 。 (町 正 し な い :N) ", 
TEISET$ 
IF TEISEI$ <> "N" THEN * 番 号 が N で な いな ら ば 
TEISEI = VAL(TEISEIS) *TEISEI$ を 整数 に 変え て 
GET #1。TEISEI, DENWA * 念 の た め 訂 正す る レコ ー ド を 読 
PRINT DENWANAMAE: "--->": "訂正 する 名 前 を 表示 し 
INPUT DENWANAMAE * 正 し い 名 前 を 入力 
PRINT DENWA.BANGOU: "--->" "訂正 する 電話 番号 を 表示 し 
INPUT DENWA.BANGOU * 正 しい 電話 番号 を 入力 
PUT #1。 TEISET, DENWA * 電 話 帳 へ 書き 込む 
END IF 
CASE0 * も し も 、 訂 正す る 名 前 が な いな ら ば 
PRINT "町 正す る 名 前 は あり ませ ん 。" * な いこ と を 画面 表示 する 
END SELECT 





画面 表示 の 例 


訂正 し た い 名 前 を 入力 し て くだ さい 。 (一 部 も 可 、 終 了 :E) 藤 
1 佐藤 花子 45-7894 
$ 近藤 幸枝 56 一 8552 
訂正 する レコ ー ド 番号 を 入力 し て くだ さい 。 (訂正 し な い :N)  $ 


近藤 幸枝  --->? 近藤 恵子 

56 一 8552 --->? 56 一 8553 

訂正 し た い 名 前 を 入力 し て くだ さい 。 (一 部 も 可 、 終 了 :E) 上 田 
訂正 する 名 前 は あり ませ ん 。 

訂正 し た い 名 前 を 入力 し て くだ さい 。 (一 部 も 可 、 終 了 :E) E 
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5. 4 電話 番号 の 削除 と 復活 


次 に 、 ラ ンダ ム ア ク セス ファ イル の レコ ー ド を 削除 する プロ グラ ム を 作り ます 。 
た だ し 、 前 節 で も 触れ た よう に 、 実 際 に は 削除 し な いで 削除 の し る し を 付け て お 
く 方 法 で す 。 前 節 と 同様 に 、 削 除 す る レコ ー ド を 検索 し て か ら 削 除 し ます 。 

プロ グラ ム の 構造 は 次 の と お り で す 。 





繰り 返す 







レコ ー ド の 型 を 決め る 
レコ ー ド 名 と その 型 を 決め る 
画面 消去 























電話 帳 を 開く 
検索 する 名 前 の 入力 
も し も 、E な ら ば 電話 帳 を 閉じ て 終了 
削除 する 名 前 が な いし る し を 付け る 
レコ ー ド 電話 帳 を 読む 
の 数 だ け も し る 検索 し て いる 名 前 を なら ば 、 
繰り 返す レコ ー ド の 内 容 を 画面 表示 する 
削除 する 名 前 が ある し る し を 付け る 
削除 する 名 前 が ある し る し な ら ば ば 、 
レコ ー ド 番号 を 入力 する 
念 の た め 電 話 帳 か ら 削除 す る レコ ー ド を 
電話 帳 か ら 読ん で 表示 し て 確認 を 求め る 
Y な ら ば 


削除 の し る し を 付け て 
削除 し た レコ ー ド を 電話 帳 へ 書き 込む 


削除 する 名 前 が な いし る し な ら ば 、 
名 前 が な いこ と を 画面 表示 する 





* 電 話 帳 9 ラン ダム アク セス ファ イル の 削除 


DEFINT I,S-T * 整数 型 変数 

TYPE DENWATYPE *YDENWATYPE と いう タイ プ を 決め る 
NAMAE AS STRING * 14 * 名 前 は 14 桁 (全角 7 字 ) 
BANGOU AS STRING * 16 * 電話 番号 は 16 桁 (全角 8 字 ) 
S$ AS INTEGER * レ コー ド の 削除 の シル シ 

END TYPE 


DIM DENWA AS DENWATYPE 


CLS 


* レ コー ド の タイ プ は DENWATYPE 


"画面 消去 


OPEN "B:DENWA.DAT" FOR RANDOM AS #1 LEN = LEN(DENWA) * 電 話 帳 を 開く 


INPUT "削除 し た い 名 前 を 入力 し て くだ さい 。 (一 部 も 可 、 終 了 :E) ", 


KENSAKUGO$ * 検 索 語 の 入力 
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IF KENSAKUGO$ = "EE" THEN * も し ゃ 、 検 索 語 が E な ら ば 


CLOSE #1 * 電 話 帳 を 閉じ て 
END * 終 了 す る 

END IF 

A=0 > 削除 し た い 名 前 が な いし る し 

FOR I = 1 TOLOF(1) \ LEN(DENWA) * レ コー ド の 数 だ け 繰 り 返 す 
GET #1, IT, DENWA * 読 む 


ITF KINSTR(DENWA.NAMAE, KENSAKUGO$) > O AND DENWA.S THEN 
* 和 人 ト も し ゃ も 、 名 前 に 検索 語 が あっ て 、 そ れ が 有効 な レコ ー ド な ら ば 
PRINT I: DENWA.NAMAE: DENWA.BANGOU * レ コー ド を 画面 表示 する 
A=1 * 削 除 し た い 名 前 が ある し る し 


END IF 


NEXT I 


SELECT CASE A 
CASE 1 * も る しゃ 検索 し た 名 前 が あれ ば 


INPUT" 削 除 す る レコ ー ド 番号 を 入力 し て くだ さい 。 (削除 し な い :N) ", 
SAKUZYO$ > 削除 する レコ ー ド 番号 の 入力 


IF SAKUZYO$ <> "N" THEN > レコ ー ド 番号 が N で な いな ら ば 
SAKUZYO = VAL(SAKUZYO$) * 削 除 番号 を 整数 に する 
GET #1。SAKUZYO, DENWA * 削 除 す る レコ ー ド を 読む 


PRINT SAKUZYO, DENWA. NAMAE: DENWA. BANGOU 
> 確認 の た め レ コー ド を 表示 する 
PRINT 
"*※*※ 確 認 ** と の レコ ー ド を 削除 し て よろ し いで すか 。 はい:Y いい え :N" 
> 本 当 に 削除 し て よい か 確認 を 求め る 
DO 
KAKUNIN$ = INKEY$ 確認 の た め Y か N を 入力 


LOOP UNTIL KAKUNIN$ = "Y" OR KAKUNIN$ = "N" 
* も し ゃ も YJ 以 外 な ら 繰 り 返 す 


IF KAKUNIN$ = "Y" THEN * も し も 、Y な ら ば 
DENWA.S = 0 * 削 除 の し る し を 付け て 
PUT #1。 SAKUZYO,DENWA "再度 書き 込む 
END IF 
END IF 
CASE 0 * も る し ゃ 検索 し た 名 前 が な けれ ば 
PRINT "削除 する 名 前 は あり ませ ん 。" > な いこ と を 画面 表示 する 
END SELECT 


LOOP 
END 





削除 の プロ グラ ム は 、 本 当 に 削除 する か どう か の 確認 を 2 度 行っ て いま す 。 
レコ ー ド 番号 を 入力 する と ころ で N を 押す と 削除 し な いこ と に な り ま す 。 ま た 、 レ 
コー ド 番 号 を 入力 し た 後に も 、 再 度 レ コー ド を 表示 し て 、Y か N を 入力 し て 確認 する 


よう に し て いま す 。 
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画面 表示 の 例 


削除 し た い 名 前 を 入力 し て くだ さい 。 (一 部 も 可 、 終 了 :E) 藤 
1 佐藤 花子 4 5 一 7894 
S 近藤 恵子 56 一 8553 


削除 する レコ ー ド 番号 を 入力 し て くだ さい 。 (削除 し な い :N) 3$ 

$ 近 藤 恵子 56 一 8553 

** 確 認 ** こ の レコ ー ド を 削除 し て よろ し いで すか 。 はい:Y いい え :N 
削除 し た い 名 前 を 入力 し て くだ さい 。 (一 部 も 可 、 終 了 :E) E 





次 に 、 削 除 レ し た レコ ー ド を 復活 する プロ グラ ム を 作り ます 。 
プロ グラ ム の 構造 は 次 の と お り で す 。 


レコ ー ド の 型 を 決め る 
レコ ー ド 名 と その 型 を 決め る 





画面 消去 
電話 帳 を 開く 
検索 する 名 前 の 入力 
義 も し も 、E な ら ば 電話 帳 を 閉じ て 終了 
復活 する 名 前 が な いし る し を 付け る 






繰り 返す 「 レ ュー ド 
の 数 だ け 
繰り 返す 


電話 帳 を 読む 
も し も る 検索 し て いる 名 前 な ら ば 、 
レコ ー ド の 内 容 を 画面 表示 する 
復活 する 名 前 が ある し る し を 付け る 











復活 する 名 前 が ある し る し な ら ば 、 
レコ ー ド 番号 を 入力 する 

念 の た め 電 話 帳 か ら 削 除 す る レコ ー ド を 

電話 帳 か ら 読ん で 表示 し て 確認 を 求め る 


Y な ら ば 
復活 の し る し を 付け て 
復活 し た レコ ー ド を 電話 帳 へ 書き 込む 


復活 する 名 前 が な いし る し な ら ば 
名 前 が な いこ と を 画面 表示 する 
















* 電 話 帳 1 0 ラン ダム アク セス ファ イル の 復活 


DEFINT H-1, T * 整数 型 変数 
TYPE DENWATYPE DENWATYPE と いう タイ プ を 決め る 
NAMAE AS STRING * 14 * 名 前 は 14 桁 (全角 7 字 ) 


BANGOU AS STRING * 16 * 電 話 番号 は 16 桁 (全角 8 字 ) 
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S AS INTEGER "レコ ー ド の 削除 の シル シ 
END TYPE 


DIM DENWA AS DENWATYPE * レ コー ド の タイ プ は DENWATYPE 
CLS * 画 面 消去 
OPEN "B:DENWA.DAT" FOR RANDOM AS #1 LEN = LEN(DENWA) * 電 話 帳 を 開く 
DO 
INPUT "復活 し た い 名 前 を 入力 し て くだ さい 。 (一 部 も 可 、 終 了 :E)  ", 
KENSAKUGO$ * 検 索 語 の 入力 
IF KENSAKUGO$ = "E" THEN * も し ゃ 、 検 索 語 が E な ら ば 
CLOSE #1 * 電 話 帳 を 閉じ て 
END * 終 了 す る 
END IF 
A=0 * 該 当 の 名 前 が な いし る し 
FOR I = 1 TOLOFG1) \ LEN(DENWA) * レ コー ド の 数 だ け 繰 り 返 す 
GET #1, 1, DENWA * 読 む 


IF KINSTR(DENWA.NAMAE, KENSAKUGO$) > 0 AND NOT DENWA.S THEN 
* も し ゃ 、 名 前 に 検索 語 が あっ て 、 そ れ が 有効 な レコ ー ド な ら ば 


PRINT I: DENWANAMAE: DENWA.BANGOU * レ コー ド を 画面 表示 する 
A=1 * 復 活 す る 名 前 が ある し る し 
END IF 
NEXT I 
SELECT CASE A 
CASE 1 * も し ゃ 検索 し た 名 前 が あれ ば 
INPUT" 復 活 す る レコ ー ド 番号 を 入力 し て くだ さい 。 (復活 し な い :N) "。 
HUKKATUS * 復 活 す る レコ ー ド 番号 の 入力 
IF HUKKATU$ <> "N" THEN * レ コー ド 番 号 が NRN で ない なら ば 
HUKKATU = VAL(HUKKATU$) * 復 活 番号 を 整数 に する 
GET #1, HUKKATU, DENWA * 復 活 す る レコ ー ド を 読 


PRINT HUKKATU: DENWA. NAMAE: DENWA. BANGOU 
> 確認 の た め レ コー ド を 表示 する 
PRINT 
"** 確 認 ** こ の レコ ー ド を 復活 し て よろ し いで すか 。 は い :Y いい え :N" 
* 本 当 に 復活 し て よい か 確認 を 求め る 
DO 
KAKUNIN$ = INKEY$ * 確 認 の た め Y か N を 入力 
LOOP UNTIL KAKUNIN$ = "Y" OR KAKUNIN$ = "N" 
* も し も ゃ も Y,.N 以 外 な ら 繰 り 返 す 


IF KAKUNIN$ = "Y" THEN * も し も 、Y な ら ば 
DENWA.$ = -1 * 復 活 の し る し を 付け て 
PUT #1。 HUKKATU,DENWA "再度 書き 込む 
END IF 
END IF 
CASE 0 * も し も ゃ 検索 し た 名 前 が な けれ ば 
PRINT "復活 する 名 前 は あり ませ ん 。" * な いこ と を 画面 表示 する 
END SELECT 
LOOP 


END 
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IF KINSTR(DENWA.NAMAE, KENSAKUGO$) > 0 AND NOT DENWA.S THEN 


NOT DENWA.S は 、「DENWA.S が 偽 な ら ば 」 と いう こと で す 。 レコ ー ド を 削除 する と 
き に は DENWA.S を 0 (ゼロ ) に し て いま すか ら 、 言 い 替 えれ ば 「 す で に 削除 され た レ 
コー ド な ら ば | と いう こと に な り ま す 。 DENWAS=0 と し て も 同じ で す 。 
復活 を させ る 場合 は 、DENWA.S = -1 と し て 電話 帳 へ 書き 込ん で いま す 。 


画面 表示 の 例 


復活 し た い 名 前 を 入力 し て くだ さい 。 (一 部 も 可 、 終 了 :E) 藤 
$ 近藤 恵子 56 一 8553 
復活 する レコ ー ド 番号 を 入力 し て くだ さい 。 (復活 し な い :N) 3 


S 近 藤 恵子 56 一 8553 
** 傘 認 ** こ の レコ ー ド を 復活 し て よろ し いで すか 。 はい:Y いい え :N 
復活 し た い 名 前 を 入力 し て くだ さい 。 (一 部 も 可 、 終 了 :E) E 
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5. 5 漢字 入力 モー ド 


漢字 を 入力 する と き に は 、 こ れ ま で は [CTRLI| と [XFER] を 同時 に 押し て 、 漢 字 入力 
モー ド に 変え て か ら 漢 字 の 入力 を 行っ て きま し た 。 ま た 、 漢 字 入力 モー ド か ら 英 数 
モー ド へ 戻す と きも 、 同 様 に [CTRL] と [XFER] を 同時 に 押 き な けれ ば な り ま せん 。 
これ まで 作っ て きた 電話 帳 で は 、 こ の よう に モー ド の 変更 を し て いた の で は 操作 
が 面倒 な の で 、 名 前 と と も に 電話 番号 も 全角 の 漢字 で 入力 し て 、 最 後に 終了 の た め 
に E を 入力 する と きだ け 、 英 数 モー ド に 戻し て きま し た 。 

この 漢字 入力 モー ド の 変更 を 必要 に 応じ て 自動 的 に 行う よう に すれ ば 、 キ ー ボ ー 
ド か ら の 操作 が 不要 と な り 、 入 力 が 快適 に な り ま す 。 

モー ド 変 更 を 自動 的 に 行う た め の プ ログ ラム を 作る 手順 は 、 次 の と お り で す 。 


1。 ま ず 、Quick BASIC の 起動 の 際 に 、A>QB と 入力 し て いた と ころ を 、 

今度 は 、A>QB /LGEN と 入力 し て 起動 し ます 。 

これ は 、A ド ライ ブ に ある QB 起動 ディ スク の 中 の LIB と いう サブ プ デ ィ レ クト 
リ に 存在 する Qu i ck ライ ブラ リ の GEN.QOLB を 、Quick BASIC の 環 
境 下 で 利用 する た め に 起動 時 に メモ リー に 読み 込む せこ と を 求め て いる の で す 。 
GEN.QOLB は 、Qu ick BASIC が も っ て いな い 機 能 を 、 拡 張 ラ イブ ラリ 
と し て 提供 し た も の の 一 つ で す 。 

また 、 別 に GEN.LIB と いう ライ ブラ リ も あり ます 。 こ れ は 、 実 行 用 の プロ グラ 
ム を 作る 際 に 、LINK に よっ て 結合 され る ライ ブラ リ で す 。 


2。 プロ グラ ム の 先頭 部 分 に 、 次 の よう に 書き 加え ます 。 


*$INCLUDE: "QB.BI* 


*$INCLUDE: "GEN.BI" 





QB.BI 及 び GEN.BI は 、QB ワ ー ク ディ スク の INCLUDE デ ィ レ クト リ に 存在 し ま 
す 。 こ れ ら を イン クル ー ド ファ イル と いい 、Quick BASIC に 対し て 
ライ ブラ リ の 中 の 命令 の 仕様 を 知ら せる 仕事 を し ます 。 
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3 。 ライ プラ リ の サブ ププ ロ シー ジャ を 使い ます 。 
漢字 入力 の 直前 に Fep "ON" と し 、 漢 字 入力 の 後に Fep "OFF" と し ます 。 


Fep "ON" 漢字 入力 の モー ド へ 変え る 


INPUT (漢字 デー タ ) * 漢 字 の デー タ を 入力 する 
Fep "OFEF" * 英 数 モー ド へ 変え る 





サン プル プロ グラ ム は 次 の と お り で す 。 


* 漢 字 モ ー ド 変更 の サン プル 
*$INCLUDE: "QB.BI" * イ ンク ルー ド フ ァイル 
*$INCLUDE: "GEN.BT 
DEFINT B 
DO * 繰 り 返 す 
Fep "ON* * 漢 字 モ ー ド に する 
INPUT "名 前 : "。 NAMAE$ * 名 前 の 入力 


Fep "OFFY * 英 数 モー ド に する 
ITF NAMAE$ = "E" THEN NAMAE$ が E な ら ば 終了 
END 


END IF 
INPUT "番号 (半角 ) :", BANGOU * 半角 の 番号 を 入力 する 
PRINT NAMAE$: BANGOU * 名 前 と 番号 を 画面 表示 する 

LOOP 





この よう に 、 漢 字 入 力 モ ー ド を 自動 的 に 切り 換え る 方 法 に よっ て 電話 帳 の 入力 を 
行え ば 、 電 話 番号 を 半角 の 数 字 と し て も 、 容 易 に 入力 で きる よう に な り ま す 。 
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5. 6 電話 帳 の まとめ 


いよ いよ 、 電話 帳 の プロ グラ ム を まとめ る 段階 に な り ま し た 。 
電話 帳 全 体 の プロ グラ ム の 構造 は 次 の と お り で す 。 


レコ ー ド の 型 を 決め る 

レコ ー ド 名 と その 型 を 決め る 
画面 油 

タイ トル 画面 の 表示 
選択 項目 の 表示 









番号 の 入力 

1 な ら 新規 入力 
2 な ら デ ー タ の 表示 
3 な ら 追 加入 力 

4 な ら 電 話 番号 の 検索 
5$ な ら 町 正 
6 な ら 削 除 
7 な ら 復活 
8 な ら 終 了 


これ まで 作っ て きた プロ グラ ム を まとめ る 手順 は つぎ の と お り で す 。 












1。 は じ め に タイ トル 画面 と 項目 を 選択 する メイ ンプ ロ シ ー ジ ャ を 作り ます 。 


2 。SUB(9 プ プロ ンジ ャ 名) と 入力 する と 、 画 面 が サブ プロ シー ジャ の 画面 に 変わ り 、 
自動 的 に END SUB も 生成 され ます 。 


③ 。 SUB(9 プ プ ロ シ ジ ャ 名 ) と END SUB と の 問 に カー ソル を 置い て 、 次 の 操作 を する と 、 
プロ グラ ム が カー ソル の 位置 に 読み 込ま れ ま す 。 

た だ し 、 読 み 込 まれ る プロ グラ ム は 、 保 存する と き に テキ スト ファ イル の 形 

式 で 保存 され だ た も の で ある こと が 必要 で す 。 も し も ゃ 読み 込め な いと き は 、 メ イ 

ンプ ブ プロシージャ を 保存 し て か ら 、 こ れ ま で の プロ グラ ム を 読み 込ん で 再度 テキ 
スト ファ イル の 形式 で 保存 し な お し て くだ さい 。 


1. マ ウス カー ソル を 正 / フ 7 仙 に 合わ せ て 左 ク リッ ク 
2. マ ウス カー ソル を MA 結合 .… に 合わ せ て 左 ク リッ ク 
3. マ ウス カー ソル を D/ デ ィ レ クト リ 欄 の -B- に 合わ せ て 左 ダ ブル クリ ッ ク 
4. マ ウス カー ソル を 互 / フ ァイル 欄 の プロ グラ ム 名 
(例え ば 検索 な ら DENWA7BAS) に 合わ せ て 左 ダ ブル クリ ッ ク 
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な お 、M/ 結 合 .… の メニ ュー が 表示 され な い 場 合 は 、O/4 プ ショ ン F/FULL メ ニュ ー 
を 左 ク リッ ク し て お いて 、 再 度 F/ フ 7 人 の クリ ッ ク か ら 操 作 し な お し て くだ 
さい 。 


4。 すべ て の サブ プロシージャ を 作っ た ら 、 調 整 作 業 を し ます 。 


1.TYPE DENWATYPE.…ENDTYPE は メイ ンプ プロシージャ に お くだ け に し て 、 サ 
プ の TYPE.……END TYPE は 削除 し ます 。 


2.DEFINT は 第 1 行 目 に ある も の を 使う の で 、 読 み 込ん だ 場合 は 削除 し ます 。 


3END が サブ プロ シー ジャ の 最後 の 行 に ある END SUB の 上 に 位置 し て いる 場合 
は 、END SUB が ある の で 削除 し ます 。 


4. サ ブ ププ ロ シ ー ジ ャ の 中 で 、E を 判定 し て 終了 する 場合 が あり ます 。 そこ に は 
CLOSE #1 と END が 続い て いま す が 、 そ の まま で は この 位置 で 終了 し ます の で 、 
ここ か ら メ イン プロ シー ジャ へ 戻る よう に 、END を EXTIT SUB に 替え ます 。 

修正 前 


CLOSE #1 


END 
END IF 





修正 後 


CLOSE #1 


EXIT SUB 
END IF 





5 。 漢 字 入 力 モ ー ド の ON と OFF の 動作 を 自動 的 に 行う た め 、 名 前 の INPUT の 直前 
に FEP "ON" を 、 直 後に は FEP "OFF" を 挿入 し ます 。 
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[メイ ンプ ロ シ ー ジ ャ ] 


DECLARE SUB TEISEIS () 


DECLARE SUB SAKUZYOS () 
DECLARE SUB HUKKATUS () 
* 電 話 帳 1 1 まとめ 
*$INCLUDE: "QB.BT* > イン クル ー ド ファ イル 
*$INCLUDE: "GEN.BI 
TYPE DENWATYPE * 型 の 設定 
NAMAE AS STRING * 14 > 名 前 は 1 4 バイ ト 
BANGOU AS STRING * 16 * 番 号 は 1 6 バイ ト 
S AS INTEGER * レ コー ド の 削除 の し る し : 整数 2 バイ ト 
END TYPE 
DEFINT A, H-I, S-T * 整数 型 変数 
DIM DENWA AS DENWATYPE DENWA レ コー ド は DENWATYPE 型 
DO * 繰 り 返 す 
CLS * 画面 表示 
COLOR 14:LOCATE 1, 2S: PRINT " 
LOCATE 2, 2S: PRINT " 
COLOR 11:LOCATE 3, 25: PRINT " あな た の 電話 帳 
COLOR 14:LOCATE 4, 2S: PRINT " 
LOCATE S, 2S: PRINT " 
COLOR 2: LOCATE 7, 30: PRINT "1 新規 の 入力 " 
LOCATE 9, 30: PRINT "2 デー タ の 表示 " 
LOCATE 11.30: PRINT "3 デー タ の 追加 入力 " 
LOCATE 13,30: PRINT "4 電話 番号 の 検索 " 
LOCATE 13,30: PRINT "5 デー タ の 訂正 " 
LOCATE 17,.30: PRINT "6 デー タ の 削除 " 
LOCATE 19.30: PRINT "7 デー タ の 復活 " 
LOCATE 21.30: PRINT"8 終了 " 
COLOR 14:LOCATE 23,25: PRINT "選択 し て 番号 を 押し て くだ さい 。 
COLOR 7 
DO * 1 文字 入力 
1$ = INKEY$ 
LOOP UNTIL 1$ <> " * 何 か 押さ れる まで 繰り 返す 
SELECT CASE 1$ 
CASE "1": SINKI 1 な ら 新 規 入力 
CASE "2": HYOUZI 2 な ら 表 示 
CASE "3": TUIKA *3 な ら 追 加 
CASE "4": KENSAKU *Y4 な ら 検 索 
CASE "$": TEISEIS ?$ な ら 訂 正 
CASE "6": SAKUZYOS *6 な ら 削 除 
CASE "7": HUKKATUS 7 な ら 復 活 
CASE "8": END *8 な ら 終 了 
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[新規 入力 の サブ ププ ブ プロシージャ ] 


SUB SINKI 
* 電 話 帳 4 ラン ダム アク セス ファ イル の 新規 入力 
IDIM DENWA AS DENWATYPE > レコ ー ド の タイ プ は DENWATYPE 


OPEN "B:DENWA.DAT" FOR RANDOM AS #1 LEN = LEN(DENWA) * 電 話 帳 を 開く 
I =0 * レコード 番号 を 0 に する 
DENWA.$ = -1 > レコー ド は 有効 
DO * 人 数 分 繰り 返す 
FEP "ON" * 漢 字 入 力 モ ー ド ON 
INPUT "名 前 (終了 :E) : "。 N$ * 名 前 の 入力 (終了 時 は E) 
FEP "OFF" * 漢 字 入 力 モー ド OFF 
ITF N$ = "E" THEN * 名 前 が E な ら ば 
CLOSE #1 * 電 話 帳 を 閉じ て 
EXIT SUB * 終 本 
END IF 
DENWANAMAE = N$ *N$ を 電話 番号 へ コビー 
INPUT "電話 番号 : "。DENWA.BANGOU * 電 話 番号 の 入力 
IT =I+1 * レコ ー ド 番号 へ 1 を 加え る 
PUT #1。 1。DENWA * 電 話 帳 へ の 書き 込み 


ラン ダム アク セス ファ イル を 読ん で 画面 表示 

DIM DENWA AS DENWATYPE * レ コー ド の タイ プ は DENWATYPE 
CLS * 画 面 消去 
OPEN "B:DENWA.DAT"' FOR RANDOM AS #1 LEN = LEN(DENWA) * 電 話 帳 を 開く 
FOR I = 1 TOLOFC1) \ LEN(DENWA) * レコ ー ド の 数 だ け 繰 り 返 す 

GET #1。 1。 DENWA * 読 む 

TF DENWA.S THEN 

PRINT I: DENWA.NAMAE: DENWA.BANGOU: DENWA.S * 画 面 へ 表示 
END TE 


IPRINT " 何 か キ ー を 押し て くだ さい 。 " 
DO 

LOOP UNTIL INKEY$ <> "" 
END SUB 
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[追加 入力 の サブ プロ シー ジャ ] 


ラン ダム アク セス ファ イル へ の 追加 の 書き 込み 
* レ コー ド の タイ プ は DENWATYPE 
* 画面 消去 
OPEN "B:DENWA.DAT" FOR RANDOM AS 者 LEN = LEN(DENWA) * 電 話 帳 を 開く 
1I=LOF(1) \ LEN(DENWA) * レコード の 数 を 計算 する 
IDENWA.S = -1 * レ コー ド は 有効 
DO * 人 数 分 繰り 返す 
FEP "ON" * 漢 字 入力 モー ド ON 
INPUT "名 前 (終了 :E) : ", N$ * 名 前 の 入力 (終了 時 は E) 
FEP "OFF" * 漢 字 入力 モー ド OFF 
IF N$ = "E" THEN * 名 前 が E な ら ば 
CLOSE #1 * 電 話 帳 を 閉じ て 


EXIT SUB "終了 
END IF 
DENWA.NAMAE = N$ "N$ を 名 前 へ コビー 
INPUT "電話 番号 : ",DENWA.BANGOU * 電 話 番 号 の 入力 
エニ 1I+1 * レコ ー ド 番号 へ 1 を 加え る 
PUT #1, 1, DENWA * 電 話 帳 へ の 書き 込み 





* 電 話 帳 7 ラン ダム アク セス ファ イル の 検索 


DIM DENWA AS DENWATYPE * レ コー ド の タイ プ は DENWATYPE 
CLS * 画 面 消去 
OPEN "B:DENWA.DAT" FOR RANDOM AS #1 LEN = LEN(DENWA) * 電 話 帳 を 開く 
DO 

FEP "ON" * 漢 字 入 力 モ ー ド ON 


INPUT "検索 し た い 名 前 を 入力 し て くだ さい 。 (一 部 も 可 、 終 了 :E)  ", 
KENSAKUGO$ * 検 索 語 の 入力 


FEP "OFF" * 漢 字 入力 モー ド OFF 

TF KENSAKUGO$ = "E" THEN * も し ゃ 、 検 索 語 が E な ら ば 
CLOSE #1 * 電 話 帳 を 閉じ て 
EXIT SUB * 終 了 す る 

END IF 

A=0 * 検 索 す る 名 前 が な いし る し 

FOR I = 1 TOLOF(1) Y LEN(DENWA) * レ コー ド の 数 だ け 繰 り 返 す 
GET #1,I, DENWA * 読 む 


TF KINSTR(DENWANAMAE, KENSAKUGO$) > 0 AND DENWA.S THEN 
"も し も 、 名 前 に 検索 語 が あっ て 、 そ れ が 有効 な レコ ー ド な ら ば 


PRINT I: DENWA.NAMAE: DENWA.BANGOU * レ コー ド を 画面 表示 する 
A=1 * 検 索 す る 名 前 が ある し る し 
END IF 
NEXT I 
ITF A =0 THEN * も しゃ 、 検 索 す る 名 前 が な いな ら ば 


PRINT "検索 し て いる 名 前 は あり ませ ん 。" * な いこ と を 画面 表示 する 
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ラン ダム アク セス ファ イル の 訂正 
IDIM DENWA AS DENWATYPE * レ コー ド の タイ プ は DENWATYPE 
CLS * 画 面 消去 
OPEN "B:DENWA.DAT" FOR RANDOM AS #1 LEN = LEN(DENWA) * 電 話 帳 を 開く 
DO 
FEP "ON" * 漢 字 入力 モー ド ON 
INPUT "訂正 し た い 名 前 を 入力 し て くだ さい 。 (一 部 も 可 、 終 了 :E) ", 
KENSAKUGO$ * 検 索 語 の 入力 
FEP "OFF" * 漢 字 入 力 モ ー ド OFEFF 
TF KENSAKUGO$ = "E" THEN * も し ゃ 、 検 索 語 が E な ら ば 
CLOSE#1 * 電 話 帳 を 閉じ て 
* 終 了 す る 


* 訂 正す る 名 前 が な いし る し 
FOR I = 1 TOLOFG1) \ LENDENWA) > レコー ド の 数 だ け 繰 り 返 す 
GET #1, 1, DENWA * 読 む 
IF KINSTR(DENWA.NAMAE, KENSAKUGO$) > O AND DENWA.$S THEN 
* 和 ト も し ゃ 、 名 前 に 検索 語 が あっ て 、 そ れ が 有効 な レコ ー ド な ら ば 
PRINT I: DENWA.NAMAE: DENWABANGOU * レ コー ド を 画面 表示 する 
A=1 * 訂 正す る 名 前 が ある し る し 


SELECTCASEA 
CASE 1 
INPUT "訂正 する レコ ー ド 番号 を 入力 し て くだ さい 。 (町 正 し な い :N) " 
TEISEIS 
IF TEISEI$ <> "N" THEN 
TEISEI = VAL(TEISE1S) 
GET #1, TEISEI, DENWA 
PRINT DENWANAMAE: "--->": 
FEP "ON" 
INPUT DENWANAMAE 
FEP "OFF" 
PRINT DENWA.BANGOU: "ーー->": 
INPUT DENWA.BANGOU 
PUT #1, TEISEI, DENWA 
END IF 
CASE0 * も しゃ も 、 訂 正す る 名 前 が な いな ら ば 
PRINT "訂正 する 名 前 は あり ませ ん 。" "な いこ と を 画面 表示 する 
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[削除 の サブ ププ ロ シ ー ジ ャ ] 


ラン ダム アク セス ファ イル の 削除 
IDIM DENWA AS DENWATYPE * レ コー ド の タイ プ は DENWATYPE 
CLS * 画面 消去 
OPEN "B:DENWA.DAT" FOR RANDOM AS #1 LEN = LEN(DENWA) * 電 話 帳 を 開く 
DO 
FEP "ON" * 漢 字 入 力 モ ー ド ON 
INPUT "削除 し た い 名 前 を 入力 し て くだ さい 。 (一 部 も 可 、 終 了 :E) ", 
KENSAKUGO$ * 検 索 語 の 入力 
FEP "OFF" "漢字 入 力 モ ー ド OFF 
TF KENSAKUGO$ = "E" THEN * も し ゃ 、 検 索 語 が E な ら ば 
CLOSE #1 * 電 話 帳 を 閉じ て 
* 終 了 す る 


* 削 除 す る 名 前 が な いし る し 
FOR 1 = 1 TOLOF(1) \ LEN(DENWA) * レ コー ド の 数 だ け 繰 り 返 す 
GET #1, 1, DENWA * 読 む 
TF KINSTR(DENWA.NAMAE, KENSAKUGO$) > O AND DENWA.S THEN 
* も る し も 、 和 名 前 に 検索 語 が あっ て 、 そ れ が 有効 な レコ ー ド な ら ば 
PRINT I: DENWA.NAMAE: DENWABANGOU * レ コー ド を 画面 表示 する 
A=1 * 該 当 す る 名 前 が ある し る し 


SELECT CASEA 
CASE 1 * も る し る 検索 し た 名 前 が あれ ば 
INPUT "削除 する レコ ー ド 番号 を 入力 し て くだ さい 。 (削除 し な い :N) ", 
SAKUZYO0$ ぅ 削除 する レコ ー ド 番号 の 入力 
IF SAKUZYO$ <> "N" THEN * レコード 番 号 が N で な いな ら ば 
SAKUZYO = VAL(SAKUZYO$) * 削 除 番号 を 整数 に する 
GET #1, SAKUZYO, DENWA * 削 除 す る レコ ー ド を 読む 
PRINT I: DENWA.NAMAE: DENWA.BANGOU 
> 確認 の た め レ コー ド を 画面 表示 する 
PRINT "*\* 確 認 ** こ の レコ ー ド を 削除 し て よろ し いで すか 。 は い :Y いい え :N " 
* 本 当 に 削除 レ し て よ いか 確認 を 求め る 
DO 
KAKUNIN$ = INKEY$ * 確 認 の た め Y か N を 入力 
LOOP UNTIL KAKUNIN$ = "Y" OR KAKUNIN$ = "N" 
* も し も ゃ YJN 以 外 な ら 繰り 返す 
IF KAKUNIN$ = "Y" THEN * も し も 、Y な ら ば 
DENWA.S=0 * 削 除 の し る し を 付け て 
PUT #1, SAKUZYO, DENWA * 再 度 書 き 込 む 
END IF 
END IF 
CASE 0 * も し ゃ 、 検 索 し た 名 前 が な いな ら ば 
PRINT "削除 する 名 前 は あり ませ ん 。" * な いこ と を 画面 表示 する 
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[復活 の サ プ プ ロ シ ー ジ ャ ] 


ラン ダム アク セス ファ イル の 復活 
IDIM DENWA AS DENWATYPE * レ コー ド の タイ プ は DENWATYPE 
CLS 


* 画面 消去 
OPEN "B:DENWA.DAT" FOR RANDOM AS #1 LEN = LEN(DENWA) * 電 話 帳 を 開く 
DO 
FEP "ON" * 漢 字 入 力 モ ー ド ON 
INPUT "復活 し た い 名 前 を 入力 し て くだ さい 。 (一 部 も 可 、 終 了 :E)  "。 
KENSAKUGO$ * 検 索 語 の 入力 
FEP "OFF" > 漢字 入力 モー ド OFF 
TF KENSAKUGO$ = "EE" THEN * も し ゃ 、 検 索 語 が E な ら ば 
CLOSE #1 * 電 話 帳 を 閉じ て 
* 終 了 す る 


* 該 当 の 名 前 が な いし る し 
FOR I = 1 TOLOF(1) \ LEN(DENWA) > レコ ー ド の 数 だ け 繰 り 返 す 
GET #1, IT, DENWA * 読 む 
IF KINSTR(DENWA.NAMAE, KENSAKUGO$) > O AND NOT DENWA.S THEN 
* 人 ト も し も ゃ も 、 名 前 に 検索 語 が あっ て 、 そ れ が 有効 な レコ ー ド な ら ば 
PRINT I: DENWA.NAMAE: DENWABANGOU * レ コー ド を 画面 表示 する 


A=1 * 該 当 す る 名 前 が ある し る し 


SELECT CASE A 


CASE 1 > も し る 検索 し た 名 前 が あれ ば 
INPUT "復活 する レコ ー ド 番号 を 入力 し て くだ さい 。 (復活 し な い :N) "。 


HUKKATUS$ 
* 復 活 す る レコ ー ド 番号 の 入力 
IF HUKKATU$ <> "N" THEN > レコ ー ド 番号 が N で な いな ら ば 
HUKKATU = VAL(HUKKATU$) "復活 番号 を 整数 に する 
GET #1。 HUKKATU, DENWA * 復 活 す る レコ ー ド を 読む 
PRINT I: DENWA.NAMAE: DENWA.BANGOU 
* 確 認 の た め レ コー ド を 画面 表示 する 
PRINT "** 確 認 ** こ の レコ ー ド を 復活 し て よろ し いで すか 。 は い :Y いい え :N " 
* 本 当 に 復活 し て よい か 確認 を 求め る 
DO 
KAKUNIN$ = INKEY$ * 確 認 の た め Y か N を 入力 
LOOP UNTIL KAKUNIN$ = "Y" OR KAKUNIN$ = "N" 


"も し ゃ も Y 以 外 な ら 繰り 返す 
IF KAKUNINS = "Y" THEN "も し も 、Y な ら ば 


DENWA.S = -1 * 復 活 の し る し を 付け て 
PUT #1, HUKKATU, DENWA * 再 度 書き 込む 


* も し ゃ 、 検 索 し た 名 前 が な いな ら ば 
PRINT "該当 する 名 前 は あり ませ ん 。" * な いこ と を 画面 表示 する 
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第 @ 章 
音楽 ソフ ト 管 理 


mmm 
プロ グラ ム の 工夫 と イン デック ス フ ァ イル 
の つい て 学び まま 補 。 











6. 1 同じ デー タ の 入力 


パソ コン を 利用 し た 音楽 ソフ ト 管 理 に つい て 学び ます 。 

音楽 ソフ ト と は 、 カ セッ ト テ ー プ 、 コ ン パ クト ディ スク 、 レ コー ド 、 レ ー ザ ディ 
スク 、 ビ デオ テー プ な どい ろ い ろ な 媒体 に 記憶 され て いる 音楽 の こと で す 。 中 で も 
カセ ッ ト テ ー プ や ビデ オォ テー プ は 放送 を 録音 ・ 録 画す る 場合 も ある の で 、 そ の 保管 
や 整理 に 困っ て いる 方 も 多い と 思い ます 。 


まず 、 管 理 の た め に どの よう な デー タ を 入力 し た ら よ いか を 考え ます 。 
1 。 媒体 
2 桁 の アル ファ ベッ ト の 半角 の 記号 と し ます 。 


カセ ッ ト テ ー プ :TP レコ ー ド :RC コン パク トディ スク :CD 
レー ザ デ ィ ス ク :LD ビデ ィ オ ディ スク :VD 
2。 登録 番 号 


半角 の 4 桁 の 数 字 と し ます 。 2 桁 は 年 を 表し 、 2 桁 は 連 番 と し ます 。 
例え ば 、1990 年 の 第 1 番 に 登録 すれ ば 、9001 番 と し ます 。 
3。 曲 名 
全角 文字 列 1 4 字 (STRING * 28) と し ます 。 
4 。 曲名 の 読み 
全角 の ひら か な 4 文字 と し ます 。 
5。 歌 手 名 
全角 文字 列 9 字 (STRING * 18) と し ます 。 
6。 歌手 名 の 読み 
全角 の ひら か な 4 文字 と し ます 。 


入力 する テス ト 用 の デー タ は 、 次 の と お り で す 。 


















ガラ ス の 十 代 ひか る ば げ 





































パラ ダイ ス 銀 河 光 GENTI ひか る ぱげ 
あい つが と ま ら な い 吉田 栄作 ポ も し だ 
夢 色 の メッ セー ジ 西村 知美 に し ちら 
君 は 流れ 星 西村 知美 に し むら 
エン ゼル フィ ッシュ 戸川 京子 と が わき 
ある 微笑 戸川 京子 と が わき 
いと し の エリ ー ベン チャ ー ズ べ ん ち ゃ 
いつ か きっ と 小泉 今日 子 こい ずみ 
LaLaLa 小泉 今日 子 こい ずみ 
Chorus City さと う ひ 
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TP |9006 | 明日 へ の 啓示 

TP |9006 | 星 に 願い を 
CDI9007|JUSTICE 
CDI9008IHeaven Kno 台 
CDI9008IBe Wild 
CDl9009 | 風 の ロ ン リ ー ウ エイ 

CD |9009 | サン セッ ト ・ ラ ブ ソ ング 
CD |9010 | 天 の 子 守 歌 












音楽 ソフ ト 管理 シス テム の 概要 は 、 次 の と お り で す 。 


デー タ の 入力 (新規 入力 、 追 加入 力 ) 






















音楽 ソフ ト 管 理 


デー タ の 検索 、 訂 正 、 削 除 
索引 簿 (イン デック ス フ ァ イル ) の 作成 | 
曲名 及び 歌手 釧 の あい うえ お 順 の 画面 表示 


は じ め に 、 デ ー タ 入力 の プロ グラ ム を 作り ます 。 

入力 に 際 し て 、 同 じ デ ー タ を 繰り 返し て 幾度 も 入力 する 場合 が ある の で 、 そ の 場 
合 は 【 条 | を 押せ ば 直前 の デー タ と 同じ 内 容 が コビー され る よう に 改善 し まし た 。 
また 、 入 力 部 分 の 操作 を 統一 し て 、 そ の 部 分 を サブ ププ ロ シ ー ジ ャ へ 移し まし た 。 
プロ グラ ム の 構造 は 次 の と お り で す 。 









イン クル ー ド ファ イル の 設定 
音楽 の レコ ー ド の 型 の 設定 
レコ ー ド 名 と その 型 の 設定 
音楽 ファ イル を 開く 

音楽 ファ イル の レコ ー ド 数 の 計算 













[入力 の サブ プロシージャ ] 
渡さ れ た デー タ の 保存 
漢字 を 使用 する な ら ば 、 漢 字 モ ー ド ON 
デー タ の 入力 
漢字 を 使用 し た な ら ば 、 漢 字 モ ー ド OFF 
必要 と する デー タ の 桁 数 分 を 切り 出す 
何 も ゃ 入力 され な けれ ば 

保存 し て いた デー タ を 使用 する 

入力 時 の デー タ の 画面 表示 を 消去 し て 

新しい デー タ を 表示 する 

入力 し た デー タ が E な ら ば 

音楽 ファ イル を 閉じ て 終了 する 












曲名 の 読み の 入力 
歌手 名 の 入力 
歌手 名 の 読み の 入力 
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[メイ ンプ ロ シ ー ジ ャ ] 


DEFINT A-Z 

DECLARE SUB NYUURYOKU ( 文 , Y, ANNAI$, ONGAKUDATA$, L, KANZT) 

* 音 楽 ソ フト 管理 1 ** ネ ネネ デー タ の 入力 **** 

*$INCLUDE: "QB.BT' * イ ンク ルー ド フ ァイル の 設定 

*$INCLUDE: 'GEN.BI* 

TYPE ONGAKUTYPE * 音 楽 ソ フト ファ イル の 形式 を 決め る 
BAITAI ASSTRING*2 "音楽 ソフ ト の 媒体 ( メ パ クト デ ィ ス CD テー ブ :TP) 
BANGOU AS STRING * 4 * 番 号 を 4 桁 
KYOKU AS STRING * 28 * 曲 名 を 全角 14 桁 
KYOKUYOMI ASSTRING*8 > 曲名 の ヨミ を 全角 4 桁 
KASYU AS STRING * 18 * 歌 手 名 を 全角 9 桁 
KASYUYOMI ASSTRING*8 * 歌 手 名 の ヨミ を 全角 4 桁 
S$ AS INTEGER > デー タ の 削除 の シル シ 

END TYPE 

DIM ONGAKU AS ONGAKUTYPE > 音楽 ソ フト の レコ ー ド の 容器 を つく る 

OPEN "B:ONGAKU.DAT" FOR RANDOM AS #1 LEN = LEN(ONGAKU) 

* 音 楽 ソ フト ファ イル を 開く 

IT = LOF(1) \ LEN(ONGAKU) * フ ァイル の レコ ー ド 数 の 計算 

ONGAKU.S = -1 > 削除 し て いな い シ ル シ 

CLS * 画 面 消去 

PRINT "**** 昔 楽 ソ フト ファ イル の 入力 ****" 

DO 
NYUURYOKU 10, 3," 媒 体 (アパ クト デ ィ ス CD テー ブ :TP 同じ : リ ター ン 終了 :E) -->", 

ONGAKU.BAITAI, 2, 0 
NYUURYOKU 10, 7," 登録 番号 (同じ : リ ター ツ -->"。 ONGAKU.BANGOU, 4, 0 
NYUURYOKU 10, 9," 曲 名 (同じ : リ ター ツ -->"。 ONGAKU.KYOKU, 28, -1 
NYUURYOKU 10,11," 曲 名 読み (同じ : リ ター -->"。 ONGAKU.KYOKUYOMI, 8, -1 
NYUURYOKU 10.13," 歌 手 名 (同じ : リ ター -->"。 ONGAKU.KASYU, 18,。-1 
NYUURYOKU 10,13," 歌 手 名 読み (同じ : リ タージ -->"。 ONGAKU.KASYUYOMI, 8, -1 
エ ニ I 二 1 
PUT #1, 1, ONGAKU 

LOOP 





[デー タ 入 力 の サブ プ プ ロ シ ー ジ ャ ] 


SUB NYUURYOKU ( 文 , Y, ANNAI$, ONGAKUDATA$, し , KANZI) 
* デ ー タ 入力 の サブ プロ シー ジャ 
HOZON$ = ONGAKUDATA$ > 渡さ きれ た デー タ を 保存 


"漢字 を 使用 する な ら ば 
"漢字 入 力 モ ー ド OR 





LOCATE Y。 文 : PRINT ANNAI$: : INPUT ""。ONGAKUDATA$ > デー タス 入力 する 
ITF KANZI THEN * 漢 字 を 使用 し た ら 
Fep "OFF" * 漢 字 入 力 モ ー ド を OFF 


END IF 
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ONGAKUDATA$ = MID$(ONGAKUDATA$, 1 葉 ) 
* 入 力 し た デー タ か ら 必 要 な 桁 数 を 切り 出す 


ITF ONGAKUDATA$ = "" THEN * 何 も 入力 され な い 場 合 は 
ONGAKUDATA$ = HOZON$ * 保 存 し て いた デー タ を 使う 
END IF * 入 力 時 の 表示 を 消し て 


LOCATE Y, 双 + LEN(ANNAIS):PRINT " 
LOCATE Y。 又 + LEN(ANNAI$):PRINT ONGAKUDATA$ * 切 り 出 し た デー タ を 表示 する 
IF ONGAKUDATAS$ = "E" THEN * 入 力 デ ー タ が E な ら ば 

CLOSE #1: END * フ ァイル を 閉じ て 終了 する 





画面 表示 の 例 
**** 昔 楽 ソ フト ファ イル の 入力 **** 


媒体 (ズバ パク ト デ ィ イク CD テー ブ :TP 同じ : リ ター ン 終了 :E) -->CD 
登録 番号 (同じ : リ ター -->9001 


曲名 (同じ : リ タツ --> ガ ラス の 十 代 
曲名 読み (同じ : リ タツ --> が ら す の 
歌手 名 (同じ ヒ : リ ター --> 光 GENTJI 
歌手 名 読み (同じ : リ タツ --> ひ か る げ 





DEFINT A-Z と し て 、 一 応 す べ て の アル ファ ベッ ト を 整数 型 の 変数 と し 、 実 数 や 文 
字 列 の 変数 の 場合 は ! や $ を 付 し て 使う こと に し まし た 。 


I =LOFG1) \ LEN(ONGAKU) は 、 フ ァイル の レコ ー ド 数 を 計算 し ます 。LOF(1) は #1 
の ファ イル の 大 きき (バイ ト 数 ) を 、LEN(ONGAKU) は 1 レコ ー ド (1 件 分 の デー タ ) 
の 大 きき さ (バイ ト 数 ) を 計算 し 、 \ は 整数 の 割 算 を し ます 。 

新規 の ファ イル の 場合 は 当然 セロ に な る の で 、 こ の プロ グラ ム だ け で デー タ の 新 
規 入力 に も 追加 入力 に も 両方 に 使用 で きま す 。 

た だ し 入力 する た びに 自動 的 に デー タ 追 加 さ れ ま す の で 、 ほ ん と うに 新規 入力 す 
る と き は 、MS 一 DOS の DEL コ マン ド を 使っ て ファ イル を 削除 し て か ら 、 こ の プロ 
グラ ム を 実行 し て くだ さい 。 

A>DEL B:ONGAKU.DAT 


レコ ー ド の 削除 は 、 実 際 に は 削除 し な いで ONQGAKU.S= ニ 0 と する こと に よっ て 、 削 


除 と 扱う こと に し ます 。ONGAKU.S= -1 に し て お く こ と に よっ て 、IF ONGAKU.S THEN 
と 書い て 、 も し も ゃ ONGAKU.S が 真 な ら ば .……… と する こと が で きま す 。 
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サ プ プ ロ シ ー ジ ャ へ は 次 の よう に デー タ が 渡さ きれ ます 。 


NYUURYOKU 10, 7, "登録 番号 (同じ し : リ ター -->"。 ONGAKU.BANGOU, 4。 0 


SUB NYUURYOKU ( 文 」Y, ANNAI$, ONGAKUDATA$, し , KANZI) 


L、 表示 する 項目 名 L、 漢 字 入 力 : -1, 非 漢字 : 0 
項目 の 表示 位置 項目 の 長き (バイ ト 数 ) 
入力 する デー タ 


次 、 音 楽 フ ァイル の 一 覧 表 を 画面 表示 する プロ グラ ム を つく り ま す 。 
プロ グラ ム の 構造 は 次 の と お り で す 。 













レコ ー ド の 型 の 設定 
レコ ー ド 名 と その 型 の 設定 
音楽 ファ イル を 開く 

タイ トル 、 見 出し の 画面 表示 
スク ロー ル す る 範囲 を 決め る 
行 数 の カウ ント を ゼロ に する 


音楽 ファ イル を 読む 
有効 な し コー ド を 画面 へ 書き 出す 
行 数 の カウ ンタ へ 1 を 加え る 
1 5 行 を 画面 へ 表示 し た ら 、 一 時 停止 し 、 
何 か 押 し た ら 次 へ 進む 












繰 り 返す 








DEFINT A-Z 

* 音 楽 ソ ジ ト 管理 2 * ネ ネネ ーー 臣 表 の 表示 * キ ** 

TYPE ONGAKUTYPE > 音楽 ソフ ト フ ァイル の 形式 を 決め る 
BAITAI AS STRING*2 "音楽 ソフ ト の 媒体 (ズバ クト ディ スク CD テー ブ :TP) 
BANGOU AS STRINOG\* 4 * 番 号 を 4 桁 
KYOKU AS STRING * 28 * 曲 名 を 全角 14 桁 
KYOKUYOMI ASSTRING*8 * 曲 名 の ヨミ を 全角 4 桁 
KASYU AS STRING * 18 * 歌 手 名 を 全角 9 桁 
KASYUYOMI ASSTRING*8 歌手 名 の ヨミ を 全角 4 桁 
S AS INTEGER * デ ー タ の 削除 の シル シ 

END TYPE 

DIM ONGAKU AS ONGAKUTYPE > 音楽 ソフ ト の レコ ー ド の 容器 を 作る 


OPEN "B:ONGAKU.DAT" FOR RANDOM AS #1 LEN = LEN(ONGAKU) 
* 音 楽 ソ フト ファ イル を 開く 
CLS * 画 面 消 去 
PRINT "**** 音 楽 ソ フト ファ イル の 一 覧 表 ****" 
PRINT 
PRINT "番号 媒体 登録 番号 曲 名 
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PRINT "曲名 読み 歌手 名 歌手 名 読み " 
VEW PRINT S TO 24 


N=0 > 表示 する 行 数 の カウ ント を ゼロ 
FOR 1 = 1 TOLOFC1) \ LEN(ONGAKU) * レ コー ド の 数 だ け 繰 り 返 す 
GET #1。 TI, ONGAKU > ファ イル を 読む 
IF ONGAKU.S THEN *ー レ コー ド が 有効 な ら ば 
PRINT I: " "の: ONGAKU.BAITAI: " ": ONGAKU.BANGOU: 
PRINT " ": ONGAKU.KYOKU: " ": 
PRINT ONGAKU.KYOKUYOMI: " ": ONGAKU.KASYU: 
PRINT " ": ONGAKU.KASYUYOMI 
N=N+1 画面 に 表示 し た 行 数 を 数 える 
IF NMOD 13 = 0 THEN *1 5 行 を 表示 し た ら 止 め る 
PRINT : PRINT " 何 か キ ー を 押し て くだ さい 。" 
DO 
LOOP UNTIL INKEY$ <> "" * 何 か キー を 押し た ら 次 へ 
CLS 


> ファ イル を 閉じ る 





VIEW PRINT $ TO 24 


画面 の 5 行 目 か ら 2 4 行 目 まで の 範囲 内 に 表示 する こと で す 。 
画面 消去 も 文字 の 表示 も この 範囲 内 で 行わ れる の で 、 タ イト ル と 見 出し は 常に そ 
の まま 表示 され て いま す 。 


IF ONGAKU.S THEN 


レコ ー ド が 有効 を な も の か 、 削 除き れ た も の か を 判定 し て いま す 。 
有効 な し コー ド な ら ば 画面 表示 され ます 。 


王 165 一 


6. 2 検索 ・ 訂 正 ・ 削 除 を まとめ る 


次 に 、 検 索 ・ 訂 正 ・ 削 除 の プロ グラ ム を 作り ます 。 

訂正 ・ 削 除 は 、 そ の レコ ー ド を 検索 し て か ら 行 いま す の で 、 検 索 の プロ グラ ム と 
訂正 ・ 削 除 の プロ グラ ム を 組み 合せ て まとめ て 作る こと が で きま す 。 

プロ グラ ム は 次 の と お り で す 。 










レコ ー ド の 型 の 設定 レコ ー ド 名 と その 型 の 設定 
音楽 ファ イル を 開く タイ トル 、 見 出し の 画面 表示 
スク ロー ル す る 範囲 を 決め る 


検索 する 項目 の 入力 
E な ら ば ファ イル を 閉じ て 終 
検索 語 の 入力 























判定 する サブ プ プ ロ シ ー ジ 









ファ イル の レコ ー ド 数 
を 繰り 返す 





デー タ が な い 場 合 は な いこ と を 表示 
デー タ が ある 場合 は 、 訂 正 ・ 削 除 の サブ プロシージャ へ 











番号 の 検索 の 場合 は 一 致し た 番号 が あれ ば 「 あ り ] 
番号 以外 を 検索 する 場合 は その 語 を 含ん で いれ ば 「 あ り 」 と する 
検索 し た レコ ー ド が 削除 され た レコ ー ド で な いな ら ば 画面 表示 する 
画面 表示 の 行 数 を 数 える 

画面 表示 が 1 0 行 な ら ば 一 時 停止 し 、 訂 正 ・ 削 除 の プロ シー ジャ へ 


サブ ププ ロ シ ー ジ ャ 
判定 








何 も し な いか 訂正 する か 削除 する か 入力 する 


ププ ロ シ ー ジ 訂正 な ら ば 、 訂 正す る レコ ー ド を 読み 
1 訂正 する 項目 を 入力 し 
ー - 訂正 の 内 容 を 入力 する 


削除 な ら ば 、 削 除 す る レコ ー ド 番号 を 入力 し 
削除 する レコ ー ド を 読み 
削除 する シル シ を 付け て 書き 込む 





DECLARE SUB TEISEI () 


DEFTINT A-Z 
DECLARE SUB HANTEI (KENSAKUGO$, ONGAKUDATA$, KK$, N, ) 
"音楽 ソフ ト 管理 3 **** デ ー タ の 検索 **** 


*$INCLUDE: 'QB.BI" 
*$INCLUDE: 'GEN.BT' 
TYPE ONGAKUTYPE * 音 楽 ソ フト ファ イル の 形式 を 決め る 
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BAITAI AS STRING\2 "音楽 ソフ ト の 媒体 (アメ パ クト デ ィ ス CD テー ブ :TP) 


BANGOU AS STRING* 4 * 番 号 を 4 桁 
KYOKU AS STRING * 28 * 曲 名 を 全角 13 桁 
KYOKUYOMI ASSTRING*8 * 曲 名 の ヨミ を 全角 4 桁 
KASYU AS STRING\* 18 * 歌 手 名 を 全角 10 桁 
KASYUYOMI ASSTRING*8 * 歌 手 名 の ヨミ を 全角 4 桁 
S AS INTEGER > デー タ の 削除 の シル シ 
END TYPE 
DIM ONGAKU AS ONGAKUTYPE * 音 楽 ソ フト の レコ ー ド の 容器 を 作る 


OPEN "B:ONGAKU.DAT" FOR RANDOM AS #1 LEN = LEN(ONGAKU) 
* 音 楽 ソ フト ファ イル を 開く 
CLS * 画 面 消去 
PRINT "**** 音 楽 ソ フト ファ イル の 検索 ****" 
PRINT 
PRINT "媒体 番号 曲 名 0 
PRINT "曲名 読み 歌 手 名 歌手 名 読み " 
VIEW PRINT S TO 24 


DO 
INPUT" 検索 する 項目 を 指定 し て くだ さい 。 番号 :1 曲名 :2 歌手 名 :3 終了 :E :", 
K$ * 検 索 す る 項目 を 入力 する 
PRINT 
IF KS$ = "E" THEN な ら ば 
CLOSE #1: END * フ ァイル を 閉じ て 終了 
END IF 
IF K$ > "1" THEN * 番 号 以外 な ら ば 
Fep "ON" * 漢 字 入 力 モ ー ド を ON 
END IF 
INPUT" 検索 語 を 入力 し て くだ さい 。 "。 KENSAKUGO$ * 検 索 す る 語 の 入力 
PRINT 
IF K$ > "1" THEN * 漢 字 入 力 モ ー ド を OFF 
Fep "OFF" 
END IF 
N=0 
FOR I = 1 TOLOF(1) \ LEN(ONGAKU) * レ コー ド 数 分 繰り 返す 
GET #1, 1, ONGAKU * 読 む 
SELECT CASE K$ * 検 索 し て いる 語 が ある か 判定 
CASE "1": HANTEI KENSAKUGO$, ONGAKU.BANGOU, KK$, N, 1 
CASE "2": HANTEI KENSAKUGO$, ONGAKU.KYOKU, KK$, N, 1 
CASE "3": HANTEI KENSAKUGO$, ONGAKU.KASYU, K$, N, I 
END SELECT 
NEXT I 
PRINT 


IF N=O THEN 

PRINT " 検索 し た デー タ は 存在 し ませ ん 。 ": PRINT "デー タ が な い 表 示 
ELSE 

TEISEI > 訂正 ・ 削 除 の サ プ プ ロ シ ー ジ ャ へ 
END IF 


LOOP 
に ーー 。。 OnWWW ーー ニー ニー ニニ ーー ニテ) 
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[検索 語 が ある か どう か 判定 する サブ ププ ブ プロシージャ ] 


SUB HANTEI (KENSAKUGO$, ONGAKUDATA$,K$,N,T) "検索 語 が ある か 判定 
SHARED ONGAKU AS ONGAKUTYPE * メ イン と 共通 領域 
SW=0 * 検 索 語 が な い シ ル シ 
SELECT CASE K$ 
CASE "1" 番号 の 検索 の 場合 は 
TF KENSAKUGO$ = ONGAKUDATA$ THEN * 一 致す れ ば 検索 語 あ り 
SW =1 *> あ る シル シ 
END IF 
CASE ELSE * 番 号 以外 の 検索 の 場合 は 
TF KINSTR(ONGAKUDATA$, KENSAKUGO$)> O THEN "検索 語 を 含ん で いれ ば 
SW = 1 > ある シル シ 


END IF 


END SELECT 
TF SW = 1 AND ONGAKU.S THEN * 検 索 語 が あっ て レコ ー ド が 有効 な ら ば 画面 表示 

PRINT I: " ": ONGAKU.BAITAI: " ": ONGAKU.BANGOU: "の 

PRINT ONGAKU.KYOKU:" ": 

PRINT ONGAKU.KYOKUYOMI: " ": ONGAKU.KASYU: " ": 

PRINT ONGAKU.KASYUYOMI 

NN ニ N+ 1 

IF NMOD 10 = 0 THEN *1 0 行 を 表示 し た ら 止 め る 

* 訂 正 ・ 削 除 の サブ プロシージャ へ 





[訂正 と 削除 の サ プ プ ロ シ ー ジ ャ ] 





SUB TEISEI * 訂 正 と 削除 の サブ プロ シー ジャ 
> 素 玉 玉 素 玉 聞 填 上 上 8 削除 ****** 
SHARED ONGAKU AS ONGAKUTYPE * メ イン と の 共通 領域 
DO 
PRINT 
PRINT "次 の デー タ : ペ ペース 訂正 :C 削除 :D -->" 
DO 
J$ = INKEY$ * 訂 正 と 削除 の 選択 
LOOP UNTILJ$ =" "ORJ$ ="C" OR J$ ="D" 
SELECT CASE J$ 
CASE" " > スペ ー ス な ら ば 
EXIT SUB * サ ブ を 抜け て 戻る 
CASE "C" *YC な ら ば 


INPUT "訂正 する レコ ー ド 番号 -->": 』 

* 訂 正す る レコ ー ド 番号 の 入力 
GET #1。J。 ONGAKU 
INPUT | 
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"訂正 する 項目 登録 番号 :1 曲名 :2 曲名 読み :3 歌手 名 :4 歌手 名 読み :S -->" 


0 * 訂 正す る 項目 の 入力 
IFT> 1 THEN 
Fep "ON" * 漢 字 モ ー ド ON 
END IF 
SELECT CASE T * 訂 正 項 目 を 入力 
CASE 1 
PRINT ONGAKU.BANGOU: 
INPUT "-->", ONGAKU.BANGOU 
CASE 2 
PRINT ONGAKU.KYOKU: 
INPUT "-->", ONGAKU.KYOKU 
CASE 3 
PRINT ONGAKU.KYOKUYOMI: 
INPUT "-->", ONGAKU.KYOKUYOMI 
CASE 4 
PRINT ONGAKU.KASYU: 
INPUT "-->", ONGAKU.KASYU 
CASE $ 
PRINT ONGAKU.KASYUYOML: 
INPUT "-->",ONGAKU.KASYUYOMI 
END SELECT 
IFT> 1 THEN 
Fep "OFF" * 漢 字 モ ー ド OFF 
END IF 
PUT #1, J, ONGAKU * 訂 正 済 み の レ コー ド を 書き 込む 
CASE "D" 


INPUT "削除 する レコ ー ド 番号 -->": 了 
> 削除 す る レコ ー ド 番号 を 入力 


GET #1, J, ONGAKU > 削除 する レコ ー ド を 読む 
ONGAKU.S =0 > 削除 する シル シ を つけ る 


PUT #1,J, ONGAKU > 削除 する レコ ー ド を 書き 込む 
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検索 語 (検索 に 使う デー タ ) を 入力 する 前 に 、 そ れ が 属す る 項目 を 番号 で 指定 し 
まし た 。 こ の 番号 に よっ て 、 漢 字 入 力 モ ー ド の ON、OFF を する よう に し ます 。 
検索 語 が ある か どう か の 判定 部 分 は サ プ プ ロ シ ー ジ ャ に し まし た か ら 、 番 号 、 曲 
名 、 歌 手 名 の 検索 は この サ プ プ ブ プロシージャ を 共同 利用 する こと に よっ て 行い ます 。 


判定 の サブ プ プ ロ シ ー ジ ャ に は 、 次 の よう に デー タ を 受け 渡し ます 。 
HANTEI KENSAKUGO$, ONGAKU.KYOKU, K$, N, 1 


SUB HANTEI (KENSAKUGO$, ONGAKUDATA$, KK$, N, 1) 
| 、 レ ュー ド 番 号 
検索 し て いる デー タ の 有無 
(あり :>=1 な し :0O) 
入力 し た 検索 語 の 項目 番号 
入力 し た 検索 語 ファ イル か ら 読 ん だ 検索 対象 項目 の デー タ 


判定 の サ プ プ ロ シ ー ジ ャ で は 、 メ イン か ら 受 け 取 っ た デー タ に 従っ て 、 検 索 語 が 
ファ イル か ら 読 ん だ レコ ー ド に 存在 する か どう か を 判断 し ます 。 番号 の 場合 は 完全 
一 致 の み 、 他 の デー タ の 場合 は 検索 語 を 含ん で いれ ば よい と いう こと に し まし た 。 
検索 し た レコ ー ド は 画面 表示 し ます 。 該当 する レコ ー ド が 多い と 、 画 面 が スク ロー 
ル し て 画面 か ら 消 を えて し まう の で 、 1 0 行 を 表示 し た と ころ で 一 時 停止 し て 、 次 の 
デー タ を 見 る か 、 訂 正 ・ 削 除 を する か を 入力 し ます 。 も し も ゃ 訂正 ・ 削 除 を する な ら 
ば 、 訂 正 ・ 削 除 の サブ プ プ ブ プロシージャ を 使い ます 。 


メイ ンプ ロ シ ー ジ ャ は 、 判 定 の サ プ プ ロ シ ー ジ ャ か ら 渡 され た デー タ に よっ て 、 
検索 し た レコ ー ド が 存在 すれ ば 訂正 ・ 削 除 の サブ プロシージャ を 使い 、 存 在 し な け 
れ ば その こと を 表示 し ます 。 


訂正 ・ 削 除 の サブ ププ ロ シ ー ジ ャ は 、 ま ず 、 次 の 検索 か 、 訂 正 か 、 削 除 か を 選択 し 
ます 。 

次 の 検索 な ら サ ププ ロ シ ー ジ ャ を 抜け 出し 、 訂 正 な ら 項 目 ご と に 新た な デー タ を 
入力 し て 書き 戻し 、 削 除 な ら 削 除 の シル シ を 付け て 書き 戻し ます 。 

訂正 ・ 削 除 の サブ ププ ロ シ ー ジ ャ の デー タ は 、SHARED ONGAKU AS ONGAKUTYPE と し 
て 、 メ イン プロ シー ジャ の デー タ を 共同 利用 し て いま す 。 
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6。 3 イオ インデ ッ み スプ ァイル 


今度 は 、 音 楽 フ ァイル を 、 曲 名 、 歌 手 釧 の 「 あ いう え お 順 ] で 表示 する プロ グラ 
ム を 作り ます 。 も ちろ ん 、 音 楽 フ ァイル その も の を 曲名 順 あ る い は 歌手 名 順に 並べ 
な お し て 画面 表示 する こと も で きま す が 、 こ こ で は 、 イ ン デ ックス ファ イル (索引 
等 ) を 作っ て これ を 参照 し な が ら 画 面 表 示す る 方 法 に つい て 、 学 記 こ と に し ます 。 
イン デック ス フ ァ イル は 、 レ コー ド を 読む (表示 する ) 順番 を メモ し て ある ファ 
イル で す 。 例 えば 草野 球 の 打順 を 思い 浮か べ て くだ さい 。 各 選手 が 全員 の 打順 を 知 
ら な く て も 、 そ れ ぞ れ 自 分 が 「 誰 の 次 ] か を 分 っ て いれ ば プレ ー が で きま す 。 こ の 
よう に 「 次 は 誰 」 か だ け を 記録 し た ファ イル を 用 意 し て 、 こ れ を だ た どっ て いく こと 
に よっ て 、 必 要 な 順序 で ファ イル を 読み 取り ます 。 


イン デック ス フ ァ イル に つい て 理解 し や すい よう に 、 4 個 の 身長 の デー タ を 使っ 
て 、 低 い 身 長 か ら 高い 身長 へ 順に デー タ を 取り 出す こと が で きる イン デック ス フ ァ 
イル を 作る 手順 を 説明 し ます 。 


175 


172 
181 
162 









むむ の い の DD ピピ 


1。 イ ン デ ックス ファ イル を 表 の 形 で 用 意 し ます 。 


次 の 身長 の 容器 番号 の ISAKUIN(O) ISAKUIN(1) ISAKUIN(2) ISAKUIN(3) ISAKUIN(④) 
容器 ( 王 索 引 番号 ) 


2。 生 徒 番号 1 の 身長 を SINTYOU(1) に 、2 の 身長 を SINTYOU(2②) に 、 と いう よう に 、 身 
長 デ ー タ の 容器 に 数 値 を 入れ て お きま す 。 


次 の 身長 の 容器 番号 の ISAKUIN(O) ISAKUIN(1) ISAKUIN(2) ISAKUIN(3⑬) ISAKUIN(4) 
容器 ( 王 索引 番号 ) 

SINTYOU(O) ISINTYOU(1) ISINTYOU(②) ISINTYOU3) ISINTYOU(④) 

175 172 181 162 


身長 デー タ の 容器 
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4 。 


いよ いよ 、 索 引 番 号 を 付け ます 。 最 初 は 容器 1 まで で す 。 
SAKUIN(0) は スタ ー ト の 容器 番号 で す が 、1 ま で の 索引 で すか ら こ こ で は 1 で す 。 
SAKUIN(1) に は 、 こ の 位置 に 対応 す る 容器 SINTYOU(1) が 最後 の デー タ (現時 点 で 
一 番 大 きい デー タ ) で ある シル シ と し て 、0 を 入れ ます 。 


SAKUIN(O) ISAKUIN(1) ISAKUIN(2) ISAKUIN(3) 
1 0 
SINTYOU(O) ISINTYOU(1) ISINTYOU(2) ISINTYOU(③) ISINTYOU(④⑭) 
175 172 181 162 


これ か ら は 、 デ ー タ を 比較 し な が ら 索 引 番 号 を 付け ます 。 ま ず 容 器 2 ま で で す 。 
スタ ー ト の 容器 番号 を 示す SAKUIN(0) が 1 な の で 、SINTYOUG(1)[ に 175] と 新しく 比 
較 す る SINTYOU(2) に 172] と を 比較 し ます 。 

SINTYOU(2②) の ほう が 小さ い の で 、SAKUIN② へ 1 を 入れ て 、SAKUIN(0) を 1 か ら 2 に 






次 の 身長 の 容器 番号 の 
容器 (一 索引 番号 ) 


身長 デー タ の 容器 









替え ます 。 

次 の 身長 の 容器 番号 の ISAKUIN(O) |ISAKUIN(1) |SAKUIN(2) ISAKUIN(3) ISAKUIN④ 
容器 ( 王 索 引 番号 ) 2 0 1 

身長 デー タ の 容器 





SINTYOU(O) |SINTYOU(1) ISINTYOU(2) ISINTYOU(3③) ISINTYOU(④⑭) 
スタ ー ト 175 172 181 162 


容器 3 まで の 索引 番号 で す 。 

SAKUIN(0) が 2 な の で 、SINTYOU(②) に 172] と 、 新 し く 比 較 す る SINTYOU(3)[ に 1811] 
と を 比較 し ます 。 

SINTYOU(②[=1721 の ほう が 小さ い の で 、SAKUIN(2②) を 見 ます 。 

SAKUIN(2②) は 1 な の で 、SINTYOU(1)[=175] と SINTYOU(3)[=181] と を 比較 し ます 。 
SINTYOU(1①) に 1751] の ほう が 小さ い の で 、SAKUIN1) を 見 ます 。 

SAKUIN1) は 、 最 後 の デ ー タ (現時 点 で 最大 の デー タ ) の シル シ で ある 0 な の で 、 
SAKUTIN(3) へ 0 を 入れ て 、SAKUIN(1) を 0 か ら 3 に 替え ます 。 


次 の 身長 の 容器 番号 の ISAKUIN(O) ISAKUIN1) ISAKUIN②) ISAKUIN⑬) ISAKUIN④⑭ 
容器 (一 索引 番号 ) 2 3 1 0 
スタ ー ト 175 172 181 162 


容器 4 まで の 索引 番号 で す 。 こ れ で すべ て の 索引 番号 が 付き ます 。 
SAKUIN(0) が 2 な の で 、SINTYOU(②) に 172] と 、 新 し く 比 較 す る SINTYOU(④)[ に 162] 
と を 比較 し ます 。 

SINTYOU(④) の ほう が 小さ い の で 、SAKUIN(④ へ 2 を 入れ て 、SAKUIN(0O) を 2 か ら 4 に 
替え ます 。 
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次 の 身長 の 容器 番号 の ISAKUIN(O) ISAKUIN(1) ISAKUIN(②) ISAKUIN(3) ISAKUIN④⑭ 

容器 (一 索引 番号 ) 4 3 1 0 2 

身長 デー タ の 容器 SINTYOU(O) ISINTYOU(1) |SINTYOU(②) ISINTYOU(3) ISINTYOU⑭) 
スタ ー ト 175 172 181 162 


これ で 完成 で す 。 どうぞ た どっ て みて くだ さい 。 
1。 スタ ー ト 位置 の SAKUIN(0) は 4 な の で 、SINTYOU(④)[ に 162] を 読み ます 。 
2 。 SAKUIN(4) は 2 な の で 、SINTYOU(2②) に 172] を 読み ます 。 
3 。 SAKUIN(2) は 1 な の で 、SINTYOUG1)[ に 175] を 読み ます 。 
4 。 SAKUIN(1) は 3 な の で 、SINTYOU(3)[ に 181] を 読み ます 。 
5 。 SAKUIN(3③) は 0 な の で 、 こ れ で 終り と いう こと で す 。 
どう で すか 、 低 い 順 に 読む せこ と が で きた で し ょ う 。 





この よう に 、 イ ン デ ックス ファ イル は 索引 番号 を 書き な お すこ と に よっ て 作る こ 
と が で きま す 。 こ れ な ら 、 デ ー タ の 順序 を 何 度 も 書き な お す 「 分 類 = ニ ソー ト 」 と い 
う 処 理 を 行わ な いで 同じ よう な こと が で きる の で 、 処 理 時 間 は 大 きく 短縮 で きま す 。 


それ で は 、 曲 名 の 読み の 「 あ いう え お 順 ] の 索引 簿 を 作っ て 一 覧 表 を 画面 表示 す 
る プロ グラ ム を 作り ます 。 プロ グラ ム の 構造 は 、 次 の と お り で す 。 


イン クル ー ド ファ イル の 設定 

イン デック ス フ ァ イル の た め の 型 の 設定 
レコ ー ド 名 と その 型 の 設定 
音楽 ファ イル を 開く 
ファ イル か ら 曲 名 の 読み を 読ん で 

イン デック ス フ ァ イル の 配列 へ 入れ る 


索引 番号 (O) に 1 を 、 索 引 番 号 (1) に 0 を 入れ る 


索引 番号 (P) の 中 の [次 の 番号 」 を 0 と する 

k 番 目 の デ ー タ が ① 番 目 の デ ー タ より 小さ けれ ば 
ここ に 挿入 する た め に 索引 番号 (P) を 索引 番号 (K) に 
コビー し 、 索 引 番 号 CPC) に は K を コビー する 
繰り 返し か ら 抜 け 出す 

すべ て の デー タ よ り 大 きけ れ ば 、 
索引 番号 (OO) が 0O で あれ ば 、 索 引 番 号 (QO) へ K を 入れ 、 
索引 番号 (KO へ 0 を 入れ る 
繰り 返し か ら 抜 け 出す 

P を 0 へ コビー する 


索引 番号 を ゼロ と する 












2 数 | 次 の デー タ の 索引 番号 を P と する 
だ ! レコ ー ド と レ か ら 放 る 
縄 り 返す P 番 目 の レ コー ド を 音楽 ファ イル か ら 読 み 取 


読み 取っ た レコ ー ド が 有効 で あれ ば 画面 表示 する 
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DEFTNT A-Z 
音楽 ソフ ト 管 理 4 **** 昌 名 索引 短 ・ 曲 名 順一 覧 表 **** 
*$INCLUDE: QB.BT* 

*$INCLUDE: *GEN.BT* 


TYPE ONGAKUTYPE * 管 理 フ ァイル の 形式 を 決め る 
BAITAI AS STRING * 2 * 媒 体 
BANGOU AS STRING* 4 * 番 号 を 4 桁 と する 
KYOKU AS STRING * 28 * 曲 名 を 全角 15 桁 と する 
KYOKUYOMI ASSTRING*8 * 曲 名 の ヨミ を 全角 4 桁 と する 
KASYU AS STRING * 18 * 歌 手 名 を 全角 10 桁 と する 
KASYUYOMI ASSTRING*8 * 歌 手 名 の ヨミ を 全角 10 桁 と する 
S$ AS INTEGER * デ ー タ の 生死 の シル シ 

END TYPE 

TYPE SAKUINTYPE * 索 引 簿 の 形式 を 決め る 
BANGOU AS INTEOER * 次 デー タ の 位置 を 整数 と する 
KYOKUYOMI ASSTRING*8 * 曲 名 の 読み を 全角 4 桁 と する 

END TYPE 

DIM ONGAKU AS ONGAKUTYPE * 管 理 フ ァイル の 容器 を 作る 

DIM SAKUIN(0 TO 1000) AS SAKUINTYPE * 索 引 簿 は 0 か ら 1000 ま で の 容器 


OPEN "B:ONGAKU.DAT" FOR RANDOM AS #1 LEN = LEN(ONGAKU) 
* 管 理 フ ァイル を 開く 


CLS * 画 面 消去 
PRINT "**** 曲 名 索引 | 簿 作 成 ****" 
PRINT 
FOR I = 1 TOLOFC1) \ LEN(ONGAKU) 
GET #1。 TI, ONGAKU * フ ァイル か ら 有 曲名 の 読み を 読み 取る 


SAKUIN①.KYOKUYOMI = ONGAKU.KYOKUYOMI * 曲 名 の 読み を 索引 簿 へ 入れ る 
NEXT 1 
"キキ キキ キキ 索引 番号 を 付け る 


SAKUIN(O).BANGOU = 1 * 索 引 簿 の 0 番目 の 番号 を 1 と する 
* 人 ト 次 の デー タ が 1 番目 に ある こと を 示す 
SAKUIN(1).BANGOU = 0 * 索 引 簿 の 1 番目 の 番号 を 0 と する 


* 和 索引 番号 の つい た 最後 の デー タ で ある こと を 示す 
FOR K = 2 TOLOFG1) \ LEN(ONGAKU) 
*2 番目 の デー タ か ら デ ー タ の 数 だ け 繰 り 返 す 


p=0 * や を 0 に し て お く 
DO * 繰 り 返 す 
Q = SAKUIN(p).BANGOU *Q に 索引 邊 P 番 目 の 番号 を 入れ る 


*\pP 番 目 と 0 番目 の デー タ の 間 に K 番 目 の デ ー タ が 挿入 され る と き 
TF SAKUIN(K).KYOKUYOMI < SAKUIN(Q).KYOKUYOMI THEN 
家 番 目 の 曲 名 の 読み が 0 番目 の 曲名 の 読み より 小さ けれ ば 
SAKUIN(K).BANGOU = SAKUIN).BANGOU 
定番 目 の 番号 を k 番 目 に 入れ て 


SAKUIN(p).BANGOU = K 定番 目 の 番号 へ K を 入れ て 
EXTIT DO * 繰 り 返 し を 中 止 する 
END IF 


* よ kg 番目 の デー タ が 番号 を 付け た すべ て の デー タ よ り 大 きけ れ ば 
TF SAKUIN(O).BANGOU = O THEN *Q 番 目 の 番 号 が 0 な ら ば 
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SAKUIN(O).BANGOU = K *Q 番 目 の 番号 へ K を 入れ て 


SAKUIN(K).BANGOU = 0 家 番 目 の 番 号 を 0 に し て 
EXTT DO * 繰 り 返 し を 中 止 する 
END IF 
p=Q や P に 0 を 入れ る 
LOOP 
NEXTK 
PRINT " 来 来 玉 来 玉 音楽 ソ フト 曲名 順一 覧 表 来 来 来 来 来 『 
PRINT 
P=0 
N=O0 
FOR 1 = 1 TOLOFC1) \ LEN(ONGAKU) 
p = SAKUIN(p).BANGOU * 次 の デー タ の 索引 番号 を P と する 
GET #1。p, ONGAKU 定番 目 の デ ー タ を 読む 
ITF ONGAKU.S THEN * も し も 生き て いる デー タ な ら ば 


PRINT 1:" "ONGAKU. BATTAI:" "ONGAKU. BANGOU:" "ONGAKU. KYOKU: 
PRINT ONGAKU. KYOKUYOMI:" ":ONGAKU. KASYU:ONGAKU. KASYUYOMI 


N=N-+ー1 
END IF * デ ー タ を 表示 する 





音楽 ソフ ト 管 理 4 の プロ グラ ム は 、 イ ン デ ックス ファ イル を 作る 基本 形 を 使っ て 、 

曲名 の 読み の 順序 で 画面 表示 し まし た 。 

次 は 歌手 名 の 読み の 順序 で 画面 表示 する プロ グラ ム を 作り ます が 、 こ こ で は 次 の 

事項 に つい て プロ グラ ム を 改造 し ます 。 

1。 で きる だ け サ ププ ロ シ ー ジ ャ へ 書き 換え て 、 曲 名 の 読み と 歌手 名 の 読み の 仕事 
を 共通 の プロ グラ ム で 処理 で きる よう に し ます 。 こ の サブ プ プ ロ シ ジー ジャ は 、 他 
の プロ グラ ム を 作る 場合 に も 利用 で きる よう に し ます 。 

2。 メモ リー 内 の 表 の 形 の イン デック ス フ ァ イル を 、 フ ロッ ピー ディ スク へ ファ イ 
ル と し て 書き 出し て 、 新 し い デ ー タ が 加え られ な い 限 り 、 フ ロッ ピー ディ スク 
E の イン デック スラ ファ イル を 利用 で きる よう に し ます 。 


以上 の 改造 を し た プロ グラ ム の 構造 の 概要 は 、 次 の と お り で す 。 
イン クル ー ド ファ イル の 設定 

レコ ー ド の 型 の 設定 

イン デック ス フ ァ イル の 表 の 設定 

ファ イル の オー プン な ど 


表 の 形 の イン デック ス フ ァ イル (索引 等 ) を 作る 


表 の 形 の イン デック ス フ ァ イル を 
フロ ッ ピ ー デ ィ ス ク 上 の ファ イル と し て 書き 出す 


フロ ッ ピ ー デ ィ ス ク 上 の イン デック ス フ ァ イル を 読み な が ら 
デー タ を 画面 表示 する 
ファ イル を 閉じ る 


イン デック ス フ ァ イル 
に よる 

曲名 ・ 歌 手 名 の 読み の 
順序 の 画面 表示 
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DECLARE SUB INDKAKU (SAKUINO) AS ANY, FILE$) 
DECLARE SUB INDYOMITIRAN (SAKUINO AS ANY, FTLE$, TITTLE$) 

DECLARE SUB SAKUINTUKURI (SAKUINO AS ANY) 

DEFINT A-Z 

* 音 楽 ソ フト 管理 5 *** ネ 索引 | 簿 ( 曲 名 歌手 名 ) ファ イル の 作成 **** 
*$INCLUDE: 'QB.BI" 

*$INCLUDE: "GEN.BT* 

TYPE ONGAKUTYPE > 管理 ファ イル の 形式 を 決め る 








































BAITAI AS STRING * 2 * 媒 体 
BANGOU AS STRING * 4 * 番 号 を 4 桁 と する 
KYOKU AS STRING * 28 * 曲 名 を 全角 15 桁 と する 
KYOKUYOMI ASSTRING*8 > 曲名 の ヨミ を 全角 4 桁 と する 
KASYU AS STRING * 18 * 歌 手 名 を 全角 10 桁 と する 
KASYUYOMI ASSTRING* 8 * 歌 手 名 の ヨミ を 全角 10 桁 と する 
S AS INTEOER * デ ー タ の 生死 の シル シ 

END TYPE 

TYPE SAKUINTYPE > 索引 簿 の 形式 を 決め る 
BANGOU AS INTEGER * 次 デー タ の 位置 を 整数 と する 
ONGAKUDATA ASSTRING*8 * 曲 名 の 読み を 全角 4 桁 と する 

END TYPE 

DIM ONGAKU AS ONGAKUTYPE * 管 理 フ ァイル の 容器 を 作る 


DIM KYOKUSAKUIN(O TO 1000) AS SAKUINTYPE 
* 索 引 簿 は 0 か ら 1000 ま で の 番号 を つけ た 容器 
DIM KASYUSAKUIN(0 TO 1000) AS SAKUINTYPE 
* 索 引 簿 は 0O か ら 1000 ま で の 番号 を つけ た 容器 
CLS * 画面 表示 
PRINT "**** 索 引 簿 (イン デック ス フ ァ イル ) 作成 ****" 
PRINT 
OPEN "B:ONGAKU.DAT" FOR RANDOM AS #1 LEN = LEN(ONGAKU) 
* 管 理 フ ァイル を 開く 
*+ フ ァイル か ら 曲 名 の 読み を 読み 取る 
FOR I = 1 TOLOF(1) \ LEN(ONGAKU) 
GET #1。 TI。 ONGAKU * 管 理 フ ァイル か ら デ ー タ を 読み 取る 
KYOKUSAKUIN①.ONGAKUDATA = ONGAKU.KYOKUYOMI "デー タ を 索引 筐 へ コピ ビー 
KASYUSAKUIN(①D.ONGAKUDATA = ONGAKU.KASYUYOMI 
NEXT I 
SAKUINTUKURI KYOKUSAKUINO * 索 引 簿 を 作る 
SAKUINTUKURI KASYUSAKUINO 
INDKAKU KYOKUSAKUINO, "B:KYOKU.IND" 
* 索 引 簿 ファ イル を フロ ッ ピ ー へ 書き 込む 
INDKAKU KASYUSAKUIN(), "B:KASYU.IND" 
INDYOMIITIRAN KYOKUSAKUINO, "B:KYOKU.IND", 
***** ネ 苦楽 ソフ ト 曲名 順一 覧 表 *****" 
INDYOMITTIRAN KASYUSAKUINO), "B:KASYU.IND", 
* ネ * ネ ** ネ 音楽 ソフ ト 歌手 順一 覧 表 *****" 
CLOSE #1 
END 
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[メモ リー 内 の 索引 等 を フロ ッ ピ ー へ 書き 出す サブ プロ シー ジャ ] 


SUB INDKAKU (SAKUIN() AS SAKUINTYPE, FILES) 
* メ モリー 内 の 索引 簿 を フロ ッ ピ ー へ 書き 出す プロ シー ジャ 
OPEN FILE$ FOR RANDOM AS #2 LEN = 10 * 索 引 簿 を 開く 
FOR ! = 0 TO LOF(1) \ LEN(ONGAKU) * デ ー タ の 数 だ け 繰 り 返 す 
PUT #2, 1 + 1, SAKUINI) * 表 か ら フ ロッ ピー へ 書き 出す 


"索引 簿 を 閉じ る 








SUB INDYOMIITIRAN (SAKUIN() AS SAKUINTYPE, FILE$, TITLE$) 
SHARED ONGAKU AS ONGAKUTYPE * 音 楽 レ コー ド は メイ ン と 共同 利用 する 
CLS * 画 面 消去 

* タ イト ル 表 示 











OPEN FILE$ FOR RANDOM AS #2 LEN = 10 * 索 引 簿 を 開く 
FOR I = 0 TO LOF(1) \ LEN(ONGAKU) > ゼロ か ら デ ー タ の 数 まで 繰り 返す 
GET #2, エ + 1, SAKUIN(I) * 索 引 簿 を 読む 












FOR 1 = 1 TO LOF(1) \ LEN(ONGAKU) * デ ー タ の 数 だ け 繰 り 返 す 







P = SAKUIN(CP).BANGOU * 次 の デー タ の 索引 番号 を P と する 
GET #1, P。 ONGAK け P 番 目 の デ ー タ を 読む 
IF ONGAKU.S THEN * も し も 生き て いる デー タ な ら ば 






PRINT I:" ONGAKU.BAITAI:" ONGAKU.BANGOU:" ":ONGAKU.KYOKU: 
PRINT ONGAKU.KYOKUYOMI:" "ONGAKU.KASYU:ONGAKU.KASYUYOMI 














N=N+ 1 * 表 示し た デー タ 数 を 数 える 
IF N MIOD 10 = 0 THEN * 画 面 表 示 を 1 0 行 毎 に 一 時 停止 する 
PRINT " 何 か キ ー を 押し て くだ さい 。" 
DO 
LOOP UNTIL INKEY$ <> " * 何 か 押す と 次 へ 進む 
END IF 
END 正 
NEXT I 
PRINT " 何 か キ ー を 押し て くだ さい 。" * 表示 が 終了 し た ら 一 時 停止 
DO 
LOOP UNTIL INKEY$ < っ の * 何 か 押す と 次 へ 進む 






END SUB 
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[索引 筐 を 表 の 形 に 作る サブ プロ シー ジャ ] 

























SUB SAKUINTUKURI (SAKUINO) AS SAKUINTYPE) 
SHARED ONGAKU AS ONGAKUTYPE > 音楽 レコ ー ド は メイ ン と 共同 利用 
SAKUIN(0).BANGOU = 1 * 索 引 科 の 0 番目 の 番号 を 1 と する 
* 次 の デー タ が 1 番目 に ある こと を 示す 
SAKUIN(1).BANGOU = 0 * 索 引 邊 の 1 番目 の 番号 を 0 と する 
* 索 引 番号 の つい た 最後 の デー タ で ある こと を 示す 
FOR K = 2 TOLOFG1) \ LEN(ONGAKU)  ' 2 番目 か ら デ ー タ の 数 だ け 繰 り 返 す 
P =0 * や を 0 に し て お く 
DO * 繰 り 返 す 
Q = SAKUIN(P).BANGOU 
> 索引 番号 P 番 目 の デ ー タ が も つ 索 引 番 号 を 0 と する 
PP 番目 と O 番 目 の デ ー タ の 間 に Kk 番 目 の デ ー タ が 挿入 され る と き は 
IF SAKUIN(K).ONGAKUDATA < SAKUIN(Q).ONGAKUDATA THEN 
家 番 目 の 読み が 0O 番 目 の 読み より 小さ けれ ば 
SAKUIN(K).BANGOU = SAKUIN(P).BANGOU 
PP 番目 の 番号 を K 番 目 の 番 号 に コピ ー し て 
SAKUIN(P).BANGOU = K 番目 の 番号 へ は K を コピ ー し て 
EXTT DO > 繰り 返し を 中 止 す る 
END IF 
散 番 目 の デ ー タ が 番号 を 付け た すべ て の デー タ よ り も 大 きい と き は 
IF SAKUIN(O).BANGOU = 0 THEN *Q 番 目 の 番号 が 0 な ら ば 
SAKUIN(O).BANGOU = K 家 を 0 番目 の 番号 へ コピ ビー し 
SAKUIN(K).BANGOU = 0 家 番 目 の 番号 を 0 に し 
EXIT DO * 繰 り 返 し を 中 止 する 
END IF 
?YQO を P へ コピ ビー する 
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6. 4 音楽 ソフ ト 管理 の まとめ 


音楽 ソフ ト 管 理 プ ログ ラム を まとめ ます 。 

これ まで 作っ て きた 各 プ ログ ラム を サブ プロ シー ジャ に 改造 し 、 機 能 を 選択 する 
シン プル な メイ ンプ ロ シ ー ジ ャ と タイ トル と メニ ュー を 表示 する サブ プロ シー ジャ 
を 加え まし た 。 

KENSAKU を サ プ プ ロ シ ー ジ ャ に 変更 する と 、HANTEI へ は ONGAKU レコ ー ド を SHARED で 
は 渡す こと が で き な く な る の で 、HANTEI の 引数 を 一 部 変え た まし た 。 

ま た 、SHARED ONGAKU AS ONGAKUTYPE と DIM ONGAKU AS ONGAKUTYPE の どちら で 
も よい 部 分 は 、 後 者 に 統一 し まし た 。 

プロ グラ ム の 構造 の 概要 は 次 の と お り で す 。 


音 タイ 4 5 

本 に EAN | スカ mwumyoku 

ソ | [ 拓 り 返す | | TTLEHYOUZI | DATANPUT スカ UM 

フ S 

| メイン | | アニ ュー 選択 ] | | アー タ の 一 覧 表示 (入力 原 ) 

人 光 \ ONGAKUITIRAN 
デー タ の 検索 、 訂正 、 削 除 | | 判定 HANTEI 
DATAKENSAKU 訂正 、 削 除 TEISEI 
イン デック ス フ ァ イル の 作成 | | イン デック ス フ ァ イル 







SAKUINBO 作成 SAKUINTUK 
イン デック ス フ ァ イル 


書き 込み INDKAKU 
曲名 順 、 歌 手 名 順 の 一 覧 表示 | | イン デック ス フ ァ イル 


ー テ ュ 
記 N 


SAKUINITIRAN 一 覧 表示 INDYOMIITIRAN 


pem A- | 
DECLARE SUB SAKUINBO O 


DECLARE SUB SAKUINITIRAN O 

DECLARE SUB TITLEHYOUZI O 

DECLARE SUB TEISEI O 

DECLARE SUB HANTEI (ONGAKU AS ANY.KENSAKUGO$,ONGAKUDATAS,K$,N.D 
DECLARE SUB DATAINPUT OO 

DECLARE SUB ONGAKUITIRAN 

DECLARE SUB DATAKENSAKU O) 

DECLARE SUB NYUURYOKU (X,Y,ANNAISONGAKUDATAS,L,KANZT) 
DECLARE SUB INDKAKU (SAKUIN() AS ANY.FILES) 

DECLARE SUB INDYOMITTIRAN (SAKUIN() AS ANY,FILE$.TITLE$) 
DECLARE SUB SAKUINTUKURI (SAKUIN() AS ANY) 












"音楽 ソ フト 管理 メイ ンプ ブロ シー ジャ 

*$INCLUDE: "QB.BI' > ッ イ ンク ルード ファ イル の 設定 
*$INCLUDE: 'GEN.BT' 

TYPE ONGAKUTYPE * 音 楽 ソ フト ファ イル の 形式 を 決め る 


BAITAI AS STRING*2 "音楽 ソフ ト の 媒体 (ズバ パクト デ ィ ス CD テー ブ :TP) 
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BANGOU AS STRING * 4 > 番号 を 4 桁 
KYOKU AS STRING * 28 * 曲 名 を 全角 14 桁 
KYOKUYOMI ASSTRING*8 * 曲 名 の ヨミ を 全角 4 桁 
KASYU AS STRING * 18 * 歌 手 名 を 全角 9 桁 
KASYUYOMI ASSTRING*8 * 歌 手 名 の ヨミ を 全角 4 桁 
S$ AS INTEGER * デ ー タ の 削除 の シル シ 
END TYPE 
TYPE SAKUINTYPE * 索 引 筐 の 形式 を 決め る 
BANGOU AS INTEGER * 次 デー タ の 位置 を 整数 と する 
ONGAKUDATA AS STRING * 8 * 曲 名 の 読み を 全角 4 桁 と する 
END TYPE 
DO * 繰 り 返 す 
TITLEHYOUZI * タ イト ル の 画面 表示 
DO 
K$ = INKEY$ * 番 号 の 入力 
LOOP UNTIL K$ >= "1" AND K$ <= "6" 
SELECT CASE K$ 
CASE "1": DATAINPUT * デ ー タ の 入力 


CASE "2": ONGAKUITIRAN 
CASE "3": DATAKENSAKU 
CASE "4": SAKUINBO 

CASE "S": SAKUINITIRAN 


* 一 覧 表示 (入力 順 ) 

* 検 索 、 訂 正 、 削 除 

* イ ン デ ックス ファ イル の 作成 
* 曲 名 順 、 歌 手 名 順一 覧 表示 


CASE "6": END * 終 了 
END SELECT 





> デー タ の 入力 

DIM ONGAKU AS ONGAKUTYPE * 音 楽 ソ フト の レコ ー ド の 容器 を 作る 
OPEN "B:ONGAKU.DAT" FOR RANDOM AS #1 LEN = LEN(ONGAKU) 

* 音 楽 ソ フト ファ イル を 開く 


I=LOF(1) \ LEN(ONGAKU) "ファ イル の レコ ー ド 数 の 計算 


ONGAKU.S = -1 * 削 除 し て いな い シ ル シ 
CLS * 画 面 消去 

PRINT "**** 音 楽 ソ フト ファ イル の 入力 ****" 

DO 


NYUURYOKU 10.5." 媒 体 (パク トド デ ィ イス CD テー ブ :TP 同 じ : リ ター ン 終了 :E) -->"。 
ONGAKU.BAITALI, 2, 0 

* 入 力 デ ー タ が E な ら ば 

* フ ァイル を 閉じ て 終了 する 


IF ONGAKU.BAITAI = "E " THEN 
CLOSE #1: EXIT SUB 

END 

NYUURYOKU 10, 7, "登録 番号 (同じ : リタ ー ジ -->",ONGAKU.BANGOU,4.0 

NYUURYOKU 10,9, "曲名 (同じ : リ ター ツジ -->", ONGAKU.KYOKU, 28, -1 

NYUURYOKU 10, 11, "曲名 読み (同じ ヒ : リ ター -->"JONGAKU.KYOKUYOMLI, 8, -1 

NYUURYOKU 10, 13, "歌手 名 (同じ : リ タツ -->", ONGAKU.KASYU,18,-1 

NYUURYOKU 10, 15, "歌手 名 読み (同じ : リ ター -->",JONGAKU.KASYUYOMLI, 8, -1 
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エニ II 二 1 
PUT #1。 1。 ONGAKU 





[デー タ 検 索 の サブ ププ ロ シ ー ジ ャ ] 





SUB DATAKENSAKU 
DIM ONGAKU AS ONGAKUTYPE 


ッ ネ まま ネ デ ー タ の 検索 **** 

? 音 楽 ソ フト の レコ ー ド の 容器 を 作る 
OPEN "B:ONGAKU.DAT" FOR RANDOM AS #1 LEN = LEN(ONGAKU) 

* 音 楽 ソ フト ファ イル を 開く 


CLS * 画 面 消去 
PRINT "**** 昔 楽 ソ フト ファ イル の 検索 ****" 
PRINT 
PRINT "番号 媒体 曲 名 曲名 読み 
" 歌 手 名 歌手 名 読み " 
VIEW PRINT S TO 24 
DO 
INPUT" 検索 する 項目 を 指定 し て くだ さい 。 番号 :1 曲名 :2 歌手 名 :3 終了 :E :", 
K$ * 検 索 す る 項目 を 入力 する 
PRINT 
IF K$ = "EE" THEN 中 な ら ば 


CLOSE #1: VIEW PRINT 1 TO 2S: EXIT SUB > ファ イル を 閉じ て 終了 


END IF 
IF K$ > "1" THEN * 番 号 以外 な ら ば 
Fep "ON" * 漢 字 入 力 モ ー ド を ON 
ENDIF 
INPUT" 検索 語 を 入力 し て くだ さい 。 "。 KENSAKUGO$ * 検 索 す る 語 の 入力 
PRINT 
IF K$> "1" THEN * 漢 字 入 力 モ ー ド を OFF 
Fep "OFF" 
END IF 
N=0 


FOR I = 1 TOLOFG1) \ LEN(ONGAKU) 
GET #1。 IT, ONGAKU 


* フ ァイル の レコ ー ド 数 分 繰り 返す 
"読む 


SELECT CASE K$ "検索 し て いる 語 が ある か 判定 
CASE "1" 
HANTEI ONGAKU, KENSAKUGO$, ONGAKU.BANGOU, 反 $, N, I 
CASE "2" 
HANTEI ONGAKU, KENSAKUGO$, ONGAKU.KYOKU, KK$, N, + 
CASE "3" 
HANTEI ONGAKU, KENSAKUGO$, ONGAKU.KASYU, KK$, N, 1 
END SELECT 
NEXT I 
PRINT 


IF N=O THEN 
PRINT " 検索 し た デー タ は 存在 し ませ ん 。" 
PRINT 


"デー タ が な い 表 示 
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[検索 語 が ある か 判定 する サ プ プ ロ シ ー ジ ャ ] 


SUB HANTEI (ONGAKU AS ONGAKUTYPE, KENSAKUGO$, ONGAKUDATAS$, K$, N, 
* 検 索 語 が ある か 判定 
SW =0 * 検 索 語 が な い シ ル シ 
SELECT CASE K$ 
CASE "1" 番号 の 検索 の 場合 は 
TF KENSAKUGO$ = ONGAKUDATA$ THEN "一 致す れ ば 検索 語 あ り 
SW = 1 * あ る シル シ 
END IF 
CASE ELSE * 番 号 以 外 の 検索 の 場合 は 
TF KINSTR(ONGAKUDATA$, KENSAKUGO$)>0THEN "検索 語 を 含ん で いれ ば 
SW = 1 > ある シル シ 


IF SW = 1 AND ONGAKU.S THEN * 検 索 語 が あっ て レコ ー ド が 有効 な ら ば 画面 表示 
PRINT 1:" "ONGAKU. BAITAI:" ":ONGAKU. BANGOU:"":ONGAKU. KYOKU:" ": 
PRINT ONGAKU. KYOKUYOML:" ":ONGAKU. KASYU:"":ONGAKU. KASYUYOMI 
N=N+1 
IF N MOD 10 = 0 THEN *10 行 を 表示 し た ら 止 め る 

TEISEI * 訂 正 ・ 削 除 の サブ プ プ ロ シ ー ジ ャ へ 
END TEF 
END IE 
END SUB 





[索引 簿 を フロ ッ ピ ー へ 書き 出す サブ プロシージャ ] 


SUB INDKAKU (SAKUINO) AS SAKUINTYPE, FILE$) "索引 筐 を フロ ッ ピ ー へ 書き 出す 
OPEN FILE$ FOR RANDOM AS #2 LEN = 10 * 索 引 簿 を 開く 
FOR ! =0 TO LOF(1) \ LEN(ONGAKU) * デ ー タ の 数 だ け 繰 り 返 す 

PUT #2, エ + 1, SAKUINI) * 表 か ら フ ロッ ピー へ 書き 出す 
NEXT 1 
CLOSE 2 * 索 引 簿 を 閉じ る 
END SUB 





[索引 和仁 を フロ ッ ピ ー か ら 読 み 取 っ て 一 覧 表 を 画面 表示 する の サ プ プ ロ シ ー ジ ャ ] 





SUB INDYOMIITIRAN (SAKUIN() AS SAKUINTYPE, FILE$, TITLE$) 
DIM ONGAKU AS ONGAKUTYPE 
CLS * 画 面 消去 
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PRINT TITLE$ > ッ タ イト ル 表 示 


PRINT 
OPEN FILE$ FOR RANDOM AS #2 LEN = 10 * 索 引 簿 を 開く 
FOR I = 0O TOLOFC1) \ LEN(ONGAKU) > ゼロ か ら デ ー タ の 数 まで 繰り 返す 
GET #2。 1 二 1。 SAKUIN(1) * 索 引 息 を 読む 
NEXT I 
CLOSE #2 
P =0 
N=0 
FOR I = 1 TOLOFC1) \ LEN(ONGAKU) > デー タ の 数 だ け 繰 り 返 す 
P = SAKUIN(P).BANGOU * 次 の デー タ の 索引 番号 を P と する 
GET #1, P, ONGAKU 定番 目 の デ ー タ を 読む 
IF ONGAKU.S THEN * も し も 生き て いる デー タ な ら ば 
PRINT 1I:" "ONGAKU. BAITAI:" "ONGAKU. BANGOU:"":ONGAKU. KYOKU: 
PRINT ONGAKU. KYOKUYOMI:"":ONGAKU. KASYU:"":ONGAKU. KASYUYOMI 
N=N+1 * 表 示し た デー タ 数 を 数 える 
IF NMOD 10 = 0 THEN * 画 面 表 示 を 1 0 行 毎 に 一 時 停止 する 
PRINT " 何 か キ ー を 押し て くだ さい 。" 
DO 
LOOP UNTIL INKEY$ <> "" * 何 か 押す と 次 へ 進む 
END IF 
END IF > デー タ を 表示 する 
NEXT 1 
PRINT " 何 か キ ー を 押し て くだ さい 。" * 表示 が 終了 し た ら 一 時 停止 
DO 
LOOP UNTIL INKEY$ <> "" * 何 か 押す と 次 へ 進む 
END SUB 





[デー タ 入 力 の サ プ プ ロ シ ー ジ ャ ] 


SUB NYUURYOKU ( 文 , Y, ANNAI$, ONGAKUDATA$, し , KANZT) 
HOZON$ = ONGAKUDATA$ > 渡さ きれ た デー タ を 保存 
TF KANZI THEN * 漢 字 を 使用 する な ら ば 
Fep "ON" * 漢 字 入 力 モ ー ド ON 
END IF 
LOCATE Y, 文 : PRINT ANNAI$: : INPUT ""。ONGAKUDATA$ * デ ー タ 入力 する 
ITF KANZI THEN "漢字 を 使用 し た ら 
Fep "OFE" > 漢字 入力 モー ド を OFF 


ENDIF 


ONGAKUDATA$ = MID$(ONGAKUDATA$, 1。 ル ) 
* 入 力 し た デー タ か ら 必 要 な 桁 数 を 切り 出す 

TF ONGAKUDATA$ = "" THEN * 何 も ゃ も 入力 され な い 場 合 は 

ONGAKUDATA$ = HOZON$ : 保 存 し て いた デー タ を 使う 
ENDIF * 入 力 時 の 表示 を 消し て 
LOCATE Y, 文 +LENCANNAIS$):PRINT" 
LOCATE Y, 文 + LEN(ANNAI$): PRINT ONGAKUDATA$ "切り 出し た デー タ を 表示 する 
END SUB 
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[一 覧 表 の 表示 の サ プ プ ロ シ ー ジ ャ ] 


SUB ONGAKUITIRAN *\**※*ーー 覧 表 の 表示 **** 
DIM ONGAKU AS ONGAKUTYPE * 音 楽 ソ フト の レコ ー ド の 容器 を 作る 
OPEN "B:ONGAKU.DAT" FOR RANDOM AS #1 LEN = LEN(ONGAKU) 

* 音 楽 ソ フト ファ イル を 開く 
CLS * 画 面 消去 
PRINT "**** 音 楽 ソ フト ファ イル の 一 覧 表 ****" 
PRINT 
PRINT" 番 号 媒体 登録 番号 曲 名 曲名 読み 

" 歌 手 名 歌手 名 読み " 


VIEW PRINT $ TO 24 
N =0 * 表 示す る 行 数 の カウ ント を ゼロ 
FOR 1 = 1 TO LOF(1) \ LEN(ONGAKU) * レ コー ド の 数 だ け 繰 り 返 す 
GET #1, 1, ONGAKU * フ ァイル を 読む 
IF ONGAKU.S THEN * レ コー ド が 有効 な ら ば 
PRINT I:" ONGAKU. BAITAI:" "ONGAKU. BANGOU:"":ONGAKU. KYOKU:" の 


PRINT ONGAKU. KYOKUYOMI:"":ONGAKU. KASYU:"":ONGAKU. KASYUYOMI 
N=N+ 1 * 画 面 に 表示 し た 行 数 を 数 える 
IF N MOD 1 = 0 THEN *1 5 行 を 表示 し た ら 止 め る 
PRINT : PRINT " 何 か キ ー を 押し て くだ さい 。" 
DO 
LOOP UNTIL INKEY$ <> " * 何 か キー を 押し た ら 次 へ 
CLS 
END IF 
END 
NEXT I 
CLOSE * フ ァイル を 閉じ る 
PRINT : PRINT " 何 か キ ー を 押し て くだ さい 。" 
DO 
LOOP UNTIL INKEY$ <> " * 何 か キー を 押し た ら 次 へ 
VIEW PRINT 1 TO 25 
END SUB 





[索引 邊 (曲名 歌手 名 ) ファ イル の 作成 の サ プ プ ロ シ ー ジ ャ ] 





SUB SAKUINBO 


DIM ONGAKU AS ONGAKUTYPE > 管理 ファ イル の 容器 を 作る 
DIM KYOKUSAKUIN(0 TO 1000) AS SAKUINTYPE 

* 索 引 簿 は 0 か ら 1000 ま で の 番号 を つけ た 容器 
DIM KASYUSAKUIN(0 TO 1000) AS SAKUINTYPE 

* 索 引 簿 は 0 か ら 1000 ま で の 番号 を つけ た 容器 


CLS "画面 消去 
PRINT "**** 索 引 筐 (イン デック ス フ ァ イル ) 作成 ****" 
PRINT 


OPEN "B:ONGAKU.DAT" FOR RANDOM AS #1 LEN = LEN(ONGAKU) "管理 ファ イル を 開く 
*+ せ ファ イル か ら 曲 名 の 読み を 読み 取る 
FOR 1 = 1 TO LOF(1) \ LEN(ONGAKU) 
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GET #1, I, ONGAKU > 管理 ファ イル か ら デ ー タ を 読み 取る 
KYOKUSAKUIN().ONGAKUDATA = ONGAKU.KYOKUYOMI 
* デ ー タ を 索引 筐 へ コピ ー す る 
KASYUSAKUIN①D).ONGAKUDATA = ONGAKU.KASYUYOMI 
NEXT I 


SAKUINTUKURI KYOKUSAKUIN() * 索 引 簿 を つく る 

SAKUINTUKURI KASYUSAKUIN() 

INDKAKU KYOKUSAKUINO, "B:KYOKU.IND" "索引 簿 フ ァイル を フロ ッ ピ ー へ 書き 込む 
INDKAKU KASYUSAKUINO, "B:KASYU.IND" 





[曲名 順 、 歌 手 名 順 の 一 覧 表示 の サ プ プ ロ シ ー ジ ャ ] 


DIM ONGAKU AS ONGAKUTYPE * 管 理 フ ァイル の 容器 を 作る 
DIM KYOKUSAKUIN(0 TO 1000) AS SAKUINTYPE 
* 索 引 簿 は 0 か ら 1000 ま で の 番号 を つけ た 容器 
DIM KASYUSAKUIN(0 TO 1000) AS SAKUINTYPE 
* 索 引 簿 は 0 か ら 1000 ま で の 番号 を つけ た 容器 
CLS * 画 面 消去 
PRINT "**** 索 引 簿 (イン デック ス フ ァ イル ) 作成 ****" 
PRINT 
OPEN "B:ONGAKU.DAT" FOR RANDOM AS #1 LEN = LEN(ONGAKU) "管理 ファ イル を 開く 
INDYOMIITIRAN KYOKUSAKUINO, "B:KYOKU.IND", 
**※*※ 玉 * 苦楽 ソフ ト 曲名 順一 覧 表 *****" 
INDYOMIITIRAN KASYUSAKUINO, "B:KASYU.IND", 
9 *※ 玉 * 音楽 ソフ ト 歌手 順一 覧 表 *****" 





[索引 簿 を 表 の 形 に つく る サブ プロ シー ジャ ] 





SUB SAKUINTUKURI (SAKUINO AS SAKUINTYPE) 


DIM ONGAKU AS ONGAKUTYPE 
SAKUIN(O0).BANGOU = 1 * 索 引 簿 の 0 番目 の 番号 を 1 と する 
* 次 の デー タ が 1 番目 に ある こと を 示す 
SAKUIN(1).BANGOU =0 * 索 引 簿 の 1 番目 の 番号 を 0 と する 
* 索 引 番 号 の つい た 最後 の データ で ある こと を 示す 
FOR K = 2 TO LOF(1) Y LEN(ONGAKU) *2 番 目 か ら デ ー タ の 数 だ け 繰 り 返 す 
P=O0 * や を 0 に し て お く 
DO * 繰 り 返 す 


Q=SAKUINP).BANGOU "索引 番号 P 番 目 の ア デー タ が も つ 索 引 番 号 を 0 と する 
定番 目 と 0 番目 の デー タ の 間 に K 番 目 の デ ー タ が 挿入 され る と き は 
下 SAKUIN(K).ONGAKUDATA < SAKUIN(Q).ONGAKUDATA THEN 
*K 番 目 の 曲 名 の 読み が 0O 番 目 の 曲 名 の 読み より 小さ けれ ば 
SAKUIN(K).BANGOU = SAKUIN(P).BANGOU 
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定番 目 の 番号 を k 番 目 の 番号 に コピ ー し て 


SAKUIN(P).BANGOU = K 定番 目 の 番 号 へ は K を コピ ビー し て 
EXTT DO * 繰 り 返 し を 中 止 する 

END IF 

家 番 目 の デ ー タ が 番号 を 付け た すべ て の デー タ よ り も 大 きい と き は 

TF SAKUIN(O).BANGOU = O THEN *Q 番 目 の 番号 が 0 な ら ば 
SAKUIN(Q).BANGOU = K 反 を 0 番目 の 番号 へ コピ ー レ 
SAKUIN(K).BANGOU = 0 家 番 目 の 番号 を 0 に し 
EXTIT DO * 繰 り 返 し を 中 止 する 

END IF 

P=0 *OQ を P へ コビー する 





[訂正 と 削除 の サ プ プ ロ シ ー ジ ャ ] 





SUB TEISEI 
DIM ONGAKU AS ONGAKUTYPE 
DO 
PRINT 
PRINT "次 の デー タ : ペ ペー ス 町 正 :C 削除 :D -->" 
DO 
J$ = INKEY$ * 訂 正 と 削除 の 選択 
LOOP UNTILJ$ =" "ORJ$="C" OR J$ ="D" 
SELECT CASE J$ 
CASE" " * ス ペー ス な ら ば 
EXIT SUB * サ ブ を 抜け て 戻る 
CASBE"GP *C な ら ば 


TPUT "訂正 する レコ ー ド 番号 ->":』 * 訂 正す る レコ ー ド 番号 の 入力 
GET #1。 了 。 ONGAKU 


INPUT 
"訂正 する 項目 登録 番号 :1 曲名 :2 曲名 読み :3 歌手 名 :4 歌手 名 読み :S -->" 
, エ * 訂 正す る 項目 の 入力 
IF エ > 1 THEN 
Fep "ON" > 漢字 入力 モー ド ON 
END IF 
SELECT CASE T * 訂 正 項目 を 入力 
CASE 1 
PRINT ONGAKU.BANGOU: 
INPUT "-->"。 ONGAKU.BANGOU 
CASE 2 
PRINT ONGAKU.KYOKU: 
INPUT "-->",ONGAKU.KYOKU 
CASE 3 
PRINT ONGAKU.KYOKUYOML: 


INPUT "-->"。 ONGAKU.KYOKUYOMI 
CASE 4 
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PRINT ONGAKU.KASYU: 
INPUT "-->".ONGAKU.KASYU 


CASE $ 
PRINT ONGAKU.KASYUYOMI: 
INPUT "-->",ONGAKU.KASYUYOMI 
END SELECT 
IF エ > 1 THEN 
Fep "OFF" 漢字 入力 モー ド OFF 
END IF 
PUT #1。 J。 ONGAKU > 訂正 済み の レコ ー ド を 書き 込む 
CASE "D" 
INPUT "削除 する レコ ー ド 番号 -->":J "削除 する レコ ー ド 番号 を 入力 
GET #1。 本 , ONGAKU > 削除 する レコ ー ド を 読む 
ONGAKU.S = 0 * 削 除 す る シル シ を つけ る 
PUT #1。J,。 ONGAKU * 削 除 す る レコ ー ド を 書き 込む 
END SELECT 
LOOP 
END SUB 





[タイ トル 画面 の 表示 の サブ プ プ ロ シ ー ジ ャ ] 


SUB TITLEHYOUZI 

CLS 

COLOR 10: LOCATE 3.25: PRINT "** 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 末 玉 玉 末 玉 玉 末 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 米 玉 玉 リ 
LOCATE 4.25: PRINT " 玉 玉 玉 素 素 玉 玉 玉 来 玉 来 来 来 来 リ 
LOCATE  S.,2S: PRINT "***** ネ * ネ ※ 音楽 ソフ ト 管 理  ****k**w* 


LOCATE 6,23: PRINT "* 玉 玉 玉 玉 玉 玉 来 玉 玉 来 来 来 リ 
LOCATE 7,25: PRINT "*** 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 リ 


LOCATE 9,.2S: PRINT "1: デー タ の 入力 " 

LOCATE 11,23: PRINT "2: 音楽 ソフ ト 一 覧 (入力 順 ) " 

LOCATE 13,2S: PRINT "3: デー タ の 検索 ・ 訂 正 ・ 削 除 " 

LOCATE 1S,2S: PRINT "4: イン デック ス フ ァ イル の 作成 " 
LOCATE 17,23: PRINT "3: 曲名 、 歌 手 名 の 読み 順 の ソフ ト 一 覧 " 
LOCATE 19,2S: PRINT "6: 終了 " 

LOCATE 21,2S: PRINT "番号 を 入力 し て くだ さい 。" 
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第 章 

ーー 土 | 科 

売 掛 管 理 

入力 技法 と ヘル プ 画 面 の プロ グラ ミン グ に 





つい て 学び ます 。 





7. 1 売 掛 管理 の 概要 


COBOL の プロ グラ ミン グ の 学習 で は 、 必 ず フ ァイル 処理 の 技法 を 学び ます 。 
中 で も 代表 的 な 題材 は 、 販 売 管理 シス テム で す 。Quick Basic で も 同じ 
よう な ファ イル 処理 を 取り 扱っ て も よい の で す が 、 こ こ で は あえ て 、Quick 
Basic の 特性 を 発揮 で きる よう な プロ グラ ミン グ を 紹介 し た いと 思い ます 。 

販売 管理 は 、 厳 密 に 検討 する と 仕 入 管理 や 在庫 管理 まで も 関連 し て その 内 容 に 包 
括 さ れ 、 プ ログ ラム が 大 きく な っ て 説明 や 学習 の た め の プ ログ ラム と し て は 覆 雑 に 
な る の で 、 こ こ で は 単純 化 の た め に 、 売 掛 管理 すなわち 売 掛 と 入金 の 記録 を と っ て 
請求 書 を 作成 する まで の 仕事 の プロ グラ ム を 作る こと に し まし た 。 


まず 、 従 前 の ファ イル 処理 (セー ケン シャ ルフ ァイル ) の 概要 は 次 の と お り で す 。 

1 。 毎日 、 商 品 マ スタ ー フ ァイル 及び 得 取引 の 入力 
意 先 マス ター ファ イル を 参照 し な が 
ら 、 取 引 ( 売 掛 、 入 金 ) を 入力 し て 
取引 ファ イル を 作り ます 。 


得意 先 
Y ス 2- フ 7 イル 





ロ 
HH 


マタ - フ 7 イル 





2。 取引 ファ イル は 、 直 ち に 得意 先 番号 
順に 並べ 替え (分 類 ) し ます 。 


3 。 得 意 先 マス ター ファ イル を 分 類 済 み 
の 取引 ファ イル に よっ て 更新 し て 、 
新しい 得意 先 マ スタ ー フ ァイル を 作 
り ま す 。 


4 。 累積 取引 ファ イル を 、 分 類 済み の 取 
引 フ ァイル に よっ て 、 更 新 し て 、 新 
し い 累 積 取 引 フ ァイル を 作り ます 。 
5 。 得 意 先 マス ター ファ イル 及び 累積 取 
引 フ ァイル か ら 、 請 求 書 を 作り ます 。 


この シス テム は 、 い わ ゆ る バッ チ 処 理 (バッ チー 東 。 例 えば 1 日 分 を 一 括 し て 処 
理 する 方 法 ) で 、 取 引 の 1 日 分 を まとめ て 入力 し 、 こ れ を 得意 先 別 に 並べ 替え て 得 
意 先 マス ター ファ イル 及び 累積 の 取引 ファ イル を 更新 し 、 最 後に 請求 書 を 作成 し ま 
す 。 こ れ が シー ケン シャ ルフ ァイル ( 順 編 成 フ ァイル ) の 処理 の 方 法 の 基本 形 で す 。 
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次 は 、 い よい よ Qu ii ck Bas ic の ラン ダム アク セス ファ イル を 利用 し た 
売 掛 管理 で す 。 フ ァイル 処理 の 概要 は 次 の と お り で す 。 


得意 先 
商品 
マス 2- フ 7 イル 


この よう に 、 ラ ンダ ム ア ク セス ファ イル を 利用 すれ ば ファ イル の 更新 や 分 類 を 毎 
日 行う 必要 が な い の で 、 全 体 と し て シン プル な 構造 に な り 、 操 作 も 容易 に な り ま す 。 





売 掛 管理 の プロ グラ ム は 、 次 の 5 つの プロ グラ ム で 構成 し ます 。 


マス ター ファ イル の 入力 (得意 先 、 商 品 ) 
取引 ファ イル の 入力 ( 売 掛 、 入 金 、 繰 越 ) 
取引 ファ イル の 一 覧 、 訂 正 ・ 削 除 
得意 先 別 の 売 掛 ・ 入 金 の 画面 表示 
請求 書 の 印刷 























次 に 、 プ ログ ラム を 作成 する た め の デ ー タ を 用 意 し ます 。 


1。 マスター ファ イル の デー タ 

プロ グラ ム を シン プル な も の に する た だ ため に 、 得 意 先 マス ター ファ イル と 商品 マ 
スタ み ー ジ ァイル を ま ら めで て で て 、 マ スタ ー フ ァイル と し まず 。 

項目 は 、 得 意 先 番号 ・ 商 品番 号 と 得意 先 名 ・ 商 品名 及び 削除 の シル シ の 3 項目 
で す が 、 得 意 先 番 号 ・ 商 品番 号 は 、 レ コー ド 番 号 と 一 致 き さき せる こと に よっ て 、 省 
略 で きま す 。 例え ば 、1 0 番 斉藤 商店 の レコ ー ド を 1 0 番 の レコ ー ド 番号 の 位置 
に 書き 込む こと に よっ て 、 1 0 番 と いう 番号 の 項目 を 省略 で きる の で す 。 

また 、1 番 か ら 50 番 まで を 得意 先 番号 、 5 1 番 か ら 1 0 0 番 ま で を 商品 番号 
の しま も だ 。 


1 朝日 商事 2 赤川 商店 3 井上 産業 4 伊藤 店 

$ 宇野 工業 6 宇佐 見 商事 7 上 田 産業 8 遠藤 家電 

9 小野 寺 商 店 10 沖田 建設 11 小山 商事 12 金沢 商店 
13 柿沢 電器 14 北山 商店 1S 北田 商事 16 熊谷 商事 
17 熊田 興業 18 黒田 商店 19 栗田 建設 20 倉田 商店 
21 駒田 産業 22 近藤 商事 23 今野 商店 24 佐々 木 商事 
25 斉藤 家電 26 篠田 電気 27 篠山 産業 28 椎名 商店 
29 吹田 商事 30 清野 商事 31 園田 興業 32 田中 商店 
33 津田 建設 34 角田 商事 33 戸田 商店 


ー191 一 


31 
う 5 
39 
63 
67 


取引 ファ イル の デー タ 


前 


ラジ オォ A 

TV14 型 
准 蔵 庫 A 型 
ラジ カセ A 
VTR 一 B 


期 繰 越 額 


90-10-01 


90-10-01 
90-10-01 
90-10-01 
90-10-01 


入金 取引 


90-10-06 
90-10-10 


90-10-12 


90-10-13 


売 掛 取引 


90-10-0S 


90-10-07 


90-10-08 
90-10-09 
90-10-10 


90-10-12 


52 
S6 
60 
64 
68 


デジ 半 号 

TV20 型 
俗 蔵 庫 B 型 
ラジ カセ 
し 作る も こ ま の 


53 


6S 


ー192 一 


ジラ ジオ G 

$7 洗濯 機 A 型 
61 冷蔵 庫 C 型 
ラジ カセ C 





290000 
S0000 
S00000 
100000 
80000 





54 
58 
62 
66 


TV12 型 
洗濯 機 B 型 
電子 レン ジ 
上 一 作 





7. 2 マス ター ファ イル の 入力 


マス ター ファ イル は 、 デ ー タ 処理 の 基本 に な る ファ イル で 、 こ の 売 掛 管理 シス テ 
ム で は 得意 先 名 と 商品 名 と を 登録 し ます 。 一般 に は 、 得 意 先 マス ター ファ イル と 商 
品 マ スタ ー フ ァイル は 、 別 に 用 意 し ます が 、 便 宜 上 、 ま と め て マス ター ファ イル と 
し まし た 。 

マス ター ファ イル の 項目 は 次 の と お り で す 。 

1 。 得 意 先 名 ・ 商 品名 

2。 レコ ー ド の 削除 の シル シ 

な お 、 得 意 先 番号 及び 商品 番号 は 、 レ コー ド 番 号 の 位置 に 得意 先 名 ・ 商 品名 を 書 
き 込 むせ こと に よっ て 王 す こと に し まし た 。 


マス ター ファ イル 入力 の プロ グラ ム の 構造 は 次 の と お り で す 。 










イン クル ー ド ファ イル の 設定 
マス ター ファ イル の レコ ー ド の 型 の 設定 
マス ター ファ イル を 開く 









既存 の マス ター ファ イル が な いな ら ば 
100 レ コー ド 分 を 削除 の シル シ を 0 
(削除 の 状態 ) に し て 書き 込む 





マス ター ファ イル の 入力 







得意 先 番 号 ・ 商 品番 号 を 入力 する 
も し も 、E か e な ら ば 入力 を 終了 す 
得意 先 名 ・ 商 品名 を 入力 する 


登録 、 削 除 の 区 分 を 入力 する 
マス ター ファ イル へ 書き 込む 





DEFINT A-Z 
* 売 掛 管 理 1 ***** 得 意 先 ・ 商 品 マ スタ ー フ ァイル の 登録 ・ 削 除 ***** 


"$INCLUDE: QB.BI' 


* イ ンク ルー ド フ ァイル の 設定 
"$INCLUDE: "GEN.BI* 


TYPE MasterType * マ スタ ー フ ァイル の レコ ー ド の 型 を 決め る 
Namae ASSTRING* 10 * 得 意 先 ・ 商 品 の 名 前 は 全角 で 5 字 
$ AS INTEGER * 削 除 の シル シ 

END TYPE 

DIM Master AS IMasterType * マ スタ ー フ ァイル の レコ ー ド は マス ター の 現 

CLS 


OPEN "B:Master.dat'" FOR RANDOM AS #1 LEN = LEN(Master) 


> マスター ファ イル を 開く 
TF LOFG1) = O THEN * マ スタ ー フ ァイル が 存在 し な けれ ば 
Master.Namae = "" * 名 前 を 空 に し て 


Mtaster.S =0 > 削除 の 印 を 削除 に し て 
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FOR I = 1 TO100 


*100 レ コー ド 分 を 


PUT #1。 1,。 Master * 書 き 込 む 
NEXT I 
ENDIF 
DO * 繰 り 返 す 
PRINT * 牙 行 


INPUT "得意 先 番号 ・ 商 品番 号 (終了 :E) -->"。 BS$ 


IF B$ = "E" OR B$ = "e" THEN 


"番号 の 入力 
* も し E か e な ら ば 


EXTT DO * 入 力 は 終了 
END IF 
fep "on" * 漢 字 入 力 モ ー ド OR 


INPUT "得意 先 名 ・ 商 品名 (終了 :E) -->" 


fep "off" 
Master.Narmnae = M$ 
INPUT "登録 :1 削除 :2 
SELECT CASE I 
CASE 1: Mtaster.S 三 -1 
CASE 2: Naster.S =0 
END SELECT 
PUT #1。VAL(B$), Master 


= 1 


, MS 


* 得 意 先 名 ・ 商 品名 の 入力 
* 漢 字 入 力 モ ー ド OFF 

* 名 前 を レコ ー ド の 項目 へ 複写 

* 登 録 、 削 除 を 選択 


* 登 録 な ら ば -1 を 
> 削除 な ら ば 0 を シル シ と し て つけ る 


* マ スタ ー フ ァイル へ 書き 込む 


ぅ > ファ イル を 閉じ る 





マス ター ファ イル に つい て は 、 特 に 訂正 や 削除 の プロ グラ ム を 用 意 し な いで 、 登 


録 、 削 除 の 区 分 を 入力 する よう に よっ て 、 登 録 と 削除 の 機能 を も た せる よう に し ま 
し だ た 。 

また 、 あ ら か じ め 100 レ コー ド 分 の デー タ を 削除 の シル シ を 付け て 入力 し て お きま 
し た 。 レ コー ド が な い 状 態 で 手 入 力 を 始め た 場合 、 レ コー ド 番 号 が 得意 先 番 号 を 一 
ね て いる の で 、 不 連続 な 得意 先 番号 で 入力 する と まだ 入力 され て いな い レ コー ド が 
で きる こと に な り 、 し た が っ て その レコ ー ド の 内 容 は 不 完全 な 状態 に な っ て いる 札 
れ が ある の で す 。 最 大 の レコ ー ド の 数 は 100 レ コー ド で すか ら 、1 番 か ら 100 番 まで の 
レコ ー ド を と に か く 用 意 し て お いた の で す 。 
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7. 3 取引 ファ イル の 入力 


売 掛 、 入 金 及 び 前 月 繰越 の 取引 を 入力 する プロ グラ ム を 作り ます 。 
この プロ グラ ム は 、 特 に 次 の 点 に つい て 工夫 し て あり ます 。 


1。 7. 1 で 触れ た シー ケン シャ ルフ ァイル を 使っ た 処理 で は 、 こ れ ら の 取引 デー 
タ は それ ぞ れ 別 の ファ イル と し て 入力 し 、 き さら に それ ぞ れ を 分 類 し て マス ター 
ファ イル を 更新 し ます 。 し か し 、 こ こ で は これ ら の 取引 を すべ て 一 つの ファ イ 
ル へ 入力 し 、 分類 し な いで その まま 請求 書 の 作成 資料 と し て 利用 で きる よう に 
し まし た 。 こ れ に よっ て 、 プ ログ ラム の 量 と 操作 する 人 の 手間 を 減少 で きま す 。 
入力 を わか りや すく する た だ ため に 、 入 力 の 画面 表示 を 伝票 形式 に し まし た 。 

デー タ の 入力 を 終了 する と き は 、 [ESC| を 押す こと に し まし た 。 

た だ し 、 そ の た め に は 得意 先 番号 と 商品 番号 の 入力 部 分 の プロ グラ ム を 変更 
し な けれ ば な り ま せん 。 これ まで の INPUT で は [ES6C| を 押さ きれ た こと が 判断 で き 
な い の で 、 キー 入力 を 文字 型 1 文字 ずつ で 受け 取っ て [ESC| が 押さ きれ た か 判断 
し 、 押 きれ て いな けれ ば その 文字 を 連結 し て 整数 に 変え て 番号 と し て 使う よう 
に し て あり ます 。 こ の 処理 を する サ プ プ ロ シ ー ジ ャ を 用 意 し まし た 。 
得意 先 番号 と 商品 番号 を 入力 する と き に [HELP] を 押す と 、 得 意 先 番号 と 商品 番 
号 を 案内 する よう に し まし た 。 


プロ グラ ム の 構造 は 次 の と お り で す 。 






マス ター ファ イル と 取引 ファ イル の レコ ー ド の 型 を 設定 する 
[HELP| を 押し た ら ヘ ルプ 画面 表示 の サブ ルー チン に 分 岐 す る よう 設定 する 
マス ター ファ イル と 取引 ファ イル を 開き 、 フ ァイル の 大 き さ を 計算 する 


ヾ 呈 庄 





-_ | 売 掛 、 入金 、 前 月 繰越 の 区 分 を 入力 する 
結 り 返す 1 なら 売 掛 、 2 なら 入 金 、3 な ら 前 月 繰越 [ESC] な ら 終了 する 
日 付 の 入力 
得意 先 番号 の 入力 な ら 終 了 す る 


慎み S そ ささ 


マス ター ファ イル の 得意 先 番号 の レコ ー ド を 読ん で 
得意 先 名 を 画面 表示 する 





見 出し を 画面 表示 する 
_ | 商品 番号 の 入力 
繰り 返す [ESC] な ら 金 額 合 計 を 表示 し て 続け る か きく 
終了 な ら サ ブ ププ ロ シ ー ジ ャ を 出る 


マス ター ファ イル の 得意 先 番号 の レコ ー ド を 読ん で 
商品 名 を 画面 表示 する 


(省略 ) 数 量 と 単価 の 入力 と 表示 、 金 額 を 計算 し て 表示 
(省略 ) | レコ ー ド 番号 を 計算 し て 書き 込む 
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得意 先 番号 お よび 商品 番号 の 入力 の た め の サ ブ ププ ロ シ ー ジ ャ の 構造 


入力 され た 文字 を 連結 し て 渡す た め の 変 数 を クリ ア す る 
指示 され た 位置 へ カー ソル 移動 


カー ソル を 点滅 表示 
ヘル プ の 機能 を ON 


1 文字 入力 
ヘル プ の 機能 を OFF 





数 字 な ら ば 、 文 字 に 連結 する 


| BS | な ら ば 、 右 の 1 文字 を 削除 し 、 
表示 を 消し 、 カ ー ソ ル を 戻す 


[ESC] な ら ば 、 エ スケ ー プ コー ド を 文字 へ 入れ て 、 
表示 を 消し 、 サ ププ ブロ シ ー ジ ャ を 出る 


リタ ー ン な ら ば ぱ ば 、 サ ププ ロ シ ー ジ ャ を 出る 






ヘル プ 画 面 を 表示 する た め の サ ブル ー チ ン の 構造 


ヘル プ 画 面 の | | レコ ー ド 番号 
の 100 ま で 


サ プ ブル ー チ ン 繰り 返す 


カー ソル の 現在 位置 を 調べ る 
画面 の 2 0 か ら 2 5 行 ま で を 使用 する 


マス ター ファ イル を 読む 
有効 を な レコ ー ド な ら ば 、 
レコ ー ド を 表示 し 、 レ コー ド 数 を 数 える 


4 レコ ー ド 分 を 表示 7 ら 、 
改行 し て 、 行 数 へ 1 を 加え る 


戻る か 、 次 を 見 る か 、 入力 する 


戻る な ら ば 、 ヘ ルプ 画面 を 消し て 、 
1 行か ら 25 行 まで の 画面 を 使用 する 
元 の 位置 へ カー ソル 移動 
サブルーチン か ら 出 る 






一 時 停止 し て 、 何 か キー を 押し た ら 
ヘル プ 画 面 を 消し て 、 
1 行か ら 25 行 まで の 画面 を 使用 する 
元 の 位置 へ カー ソル 移動 
サブ ルー チン か ら 出 る 
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DEFTINT A-Z 

DECLARE SUB Nyuuryoku (y。 x。S$) 

DECLARE SUB Kurikosi (I。 K$, S$) 

DECLARE SUB Nyuukin 。 K$, S$) 

DECLARE SUB Urikake (T。 K$, S$) 

* 売 掛 管理 2 ***** 売 掛 ・ 入 金 フ ァイル の 入力 ***** 


*$INCLUDE: "QB.BI" * イ ンク ルー ド フ ァイル の 設定 
*$INCLUDE: "GEN.BT 
TYPE MastertyDe * マ スタ ー フ ァイル の レコ ー ド の 現 
Namae AS STRING * 10 * 得 意 先 ・ 商 品 の 名 前 は 全角 で 5 字 
S$ AS INTEGER > 削除 の シル シ 
END TYPE 
TYPE Torihikitype * 取 引 フ ァイル の レコ ー ド の 型 
Kubun AS STRING * 1 * 区 分 ( 売 掛 :1 入金 :2 繰越 :3) 
hizuke AS STRING* 8 * 日 付 (yy-mm-dd) 
TokuiBangou AS INTEGER * 得 意 先 番号 
SyouBangou AS INTEGER "商品 番号 
Suuryou AS INTEOER * 数 量 
Tanka AS LONG * 単価 
Kingaku AS LONG * 金 額 
$ AS INTEGER * 削 除 の シル シ 
END TYPE 
DIM Mtaster AS Mastertype * マ スタ ー の レコ ー ド の 型 
DIM Torihiki AS Torihikitype * 取 引 の レコ ー ド の 型 


ON KEY(31) GOSUB Helpsub: "一 を 押し た ら HELP 画 面 を 表示 する 


OPEN "B:Mtaster.dat'" FOR RANDOM AS #1 LEN = LEN(Master) 

* マ スタ ー フ ァイル を 開く 
OPEN "B:Torihiki.dat" FOR RANDOM AS #2 LEN = LEN(Torihiki) 

* 取 引 フ ァイル を 開く 


I = LOF(②2) \ LEN(Torihiki) * 取 引 フ ァイル の 大 き さ を 計算 
DO * 繰 り 返 す 

CLS * 画 面 消去 

LOCATE 10, 10 

PRINT "区 分 売 掛 :1 入金 :2 前 月 繰越 :3 終了 :ESC -->" 

* 取 引 の 区 分 を 選択 
DO 
K$ = INKEY$ * 区 分 の 入力 


LOOP UNTIL (KS >= "1" AND K$ <= "3") OR K$ = CHRS$(&H1B) 
DO 


SELECT CASE K$ 
CASE "1": Urikake I。K$, S$ * 売 持 
CASE "2": Nyuukin 1 KS$, S$ * 入 金 
CASE "3": Kurikosi 1 KS$, S$ * 繰 越 
CASE IS = CHR$(&H1B): CLOSE #1: CLOSE #2: END * 終 了 
END SELECT 
LOOP UNTIL S$ = CHR$(&HIB) *S$ が ESC と な る まで 繰り 返す | 


LOOP 
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END 


Helpsub: 
HX = POS(O): HY = CSRLIN > カー ソル の 現在 位置 を 得る 
VIEW PRINT 20 TO 2 > 画面 の 2 0 か ら 2 5 行 ま で を 使う 


HM = 1: HL=0 


FOR H = 1 TO100 > マス ター ファ イル の 1 か ら 1 0 0 番 ま で 


GET #1, HH, Master ぅ > マス ター ファ イル を 読む 
IF Mtaster.S THEN * 有 効 な レコ ー ド な ら ば 
PRINT USINO "### か cw 謗 の ": HH: Master.Narmae: 
ぅ レコ ー ド を 書く 
HM = HM+ 1 * 書 いた レコ ー ド 数 を 数 える 
END IF 
IF (HM - 1) MOD 4 = 0 THEN *4 レコ ー ド 分 表示 し た ら 
PRINT 4 し て 
HL=HL+ 1 * 行 数 を 計算 し 
IF HL MOD 4 = O THEN * 4 行 表示 し た ら 
PRINT "戻る :R 次 を :N -->" * 一 時 停止 し て 
DO 
Hin$ = INKEY$ *R か N を 入力 
LOOP UNTTL Hin$ = "R" OR Hin$ = "N" 
IF Hin$ = "R" THEN R な ら ば 
CLS * 画 面 消去 
VIEW PRINT 1 TO2S * 使 用 する 画面 を 指定 
LOCATE HY, HX * 元 の 位置 へ カー ソル 移動 
RETURN * サ ププ ロ シ ー ジ ャ へ 戻る 
END IF 
END IF 
END IF 
NEXTH 
PRINT:PRINT " 何 か キ ー を 押し て くだ さい 。" * 表 示 を 終了 し た ら 
DO 
LOOP UNTIL INKEYS <> "" * 一 時 停止 し て 
CLS 
VIEW PRINT 1 TO25 * 使 用 画面 を 指定 
LOCATE HY,RX (gm ゅ ' 元 の 位置 へ カー ソル 移動 


RETURN 





ON KEY(31) GOSUB Helpsub: 


も し も 、[HELP| を 押し た ら 、Helpsub: と いう 名 札 の 付い た プロ グラ ム の 仕事 を し 


て 、RETURN で 戻る と いう こと で す 。 
し か し 、KEY(31) GOSUB Helpsub: の 書い て ある 位置 で 押さ れる の を 待っ て いる の 


で は あり ませ ん 。 KEY(31) ON と KEY(31) OFF と の 間 な を なら いつでも 有効 で す 。 
KEY(31) ON と KEY(31) OFF は 、Nyuuryoku と いう サブ プロ シー ジャ に あり ます が 、 
そこ で 役に立つ の で す 。 
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KEY(31) の 31 と いう 番号 は 、[HELP| を 志 し ます 。 他 に も た と えば ON KEY(1) な ら ば 
[f・1] を 押せ ば 、 と いう こと に な り ま す 。 
ON KEY( 番 号 ) の 番号 は 次 の よう に 使う こと が で きま す 。 
[1 上 F に 10] :1ーi0 
ff きま 秋 了 『 育 | :⑱⑬ [ 相 :14 
[STOP| :30 [HELP| :31 


キー の 割り 当て は ユー ザ 定 義 む る こと が で き 、15 か ら 25 が その た め の 番 号 で す 。 


CASE IS = CHRS$( 和 &H1B): CLOSE #1: CLOSE #2: END 


&H は 次 に 続く 数 が 1 6 進数 で ある こと を 示し ます か ら 、1B は 1 6 進数 の 1B で す 。 
CHR$O0 は O の 中 の 数 の アス キー コー ド に 対応 する 文字 を つく る 関数 で 、 ア スキ ー 
コー ド の 1B は [ESC] を 表し ます か ら 、 こ の 場合 は K$ に [ESC] が 入力 され て いれ ば 、 
ファ イル を 閉じ て 終了 する と いう こと に な り ま す 。 


HX = POS(O): HY = CSRLIN 


ヘル プ 画 面 を 表示 し て 戻る と き の カ ー ソ ル 位 置 を 保存 し て いま す 。 
POS(O) は 現在 の カー ソル の 桁 位置 を 、CSRLIN は 行 位置 を 返す 関数 で す 。 


[ 売 掛 取引 の 入力 の サ プ プ ロ シ ー ジ ャ ] 





SUB Urikake (1, KS, S$) 


DIM Ntaster AS MastertyDe * マ スタ ー レ コ ド の 現 

DIM Torihiki AS Torihikitype * 取 引 レ コー ド の 型 

DIM Goukei AS LONG * 合 計 は 倍 長 の 整数 

CLS * 画 面 消去 

Torihiki.Kubun = KS$ * 区 分 を 複写 

Torihiki.S =-1 * レ コー ド を 有効 に (削除 は -1) 
Goukei = 0 合計 を 0 に する 


COLOR 2: LOCATE 1, 30: PRINT "**** 売 掛 の 入力 ****" 
COLOR 3: LOCATE 3, 43: PRINT" 年 月 日 ": 


COLOR 7: INPUT ""。 Torihiki.hizuke * 日 付 を 入力 
DO * 繰 り 返 す 
COLOR 3: LOCATE $, 8: PRINT "得意 先 番号 (終了 :ESO)": 
COLOR 7: Nyuuryoku S, 30, S$ * 得 意 先 番号 を 入力 
IF SS$ = CHRS$(&H1B) THEN *ESC が 押 き れれ ば 
EXTT SUB *> サ ププ ロ シ ー ジ ャ を 出る 
ELSE * そ う で な けれ ば 
Torihiki.TokuiBangou = VAL(S$) "得意 先 番号 を 画面 表示 
LOCATE S, 30 


PRINT USINO "### 電 堪 弁 "・ Torihiki.TokuiBangou: 
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END IF 
GET #1, Torihiki.TokuiBangou, Mtaster "マス ター ファ イル を 読む 


LOOP UNTTL Master.S * 有 効 を な レコ ー ド を 読む まで 
COLOR 3: LOCATE S$, 40: PRINT "得意 先 名 ": 
COLOR 7: PRINT Master.Namae * 得 意 先 名 を 表示 する 
COLOR 3 
LOCATE 7。 8 
PRINT " 商品 番号 (終了 :ESC) 商品 名 数 量 単 価 金 額 " 
COLOR 7 
ッ y=9 * 画 面 の 9 行 目 を 設定 
DO 
DO 
DO 
LOCATE y, 13: PRINT " 時 
Nyuuryoku y, 15。S$ "商品 番号 を 入力 
IF S$ = CHRS$(&H1B) THEN * も し も ゃ も ESC が 入力 され れ ば 
LOCATE y, 1S: PRINT " me 
COLOR 3: LOCATE y, 33: PRINT "合計 ": 
COLOR 7: PRINT USING "二井 草 井草": Goukei 
* 合 計 を 表示 し て 
LOCATE 18, 1 
PRINT " 売 掛 の 入力 を 続け る : 何 か キー を 押す 。 終了 :ESC -->" 
DO * 一 時 停止 する 
S$ = INKEY$ 
LOOP UNTTL SS$ <> "" 
EXIT SUB * サ ププ ロ シ ー ジ ャ を 出る 
END IF 
Torihiki.SyouBangou = VAL(S$) "商品 番号 を 取引 レコ ー ド へ 複写 
LOCATE y, 15: PRINT USING "## 替 "Torihiki.SyouBangou: 
"商品 番号 を 表示 
LOOP UNTIL Torihiki.SyouBangou>0O AND Torihiki.SyouBangou<=100 
GET #1, Torihiki.SyouBangou, Master > マス ター ファ イル を 読む 
LOOP UNTTL Master.S 
LOCATE y, 28: PRINT Master.Namac: * 商 品名 を 表示 
LOCATE y, 40: INPUT ""。 Torihiki.Suuryou * 数 量 を 入力 
LOCATE y, 40: PRINT USING "所 唱 ##": ToOrihiki.Suuryou: * 数 量 を 表示 
LOCATE y, 46: INPUT ""。Torihiki.Tanka * 単 価 を 入力 
LOCATE y, 46: PRINT USING "# 崩 組 埋 皇 中 Torihiki.Tanka: "単価 を 表示 
Torihiki.Kingaku = Torihiki.Suuryou * Torihiki.Tanka "金額 を 計算 
PRINT USING "電電 大井 非 。 非 厚 草 ": Torihiki.Kingaku * 金 額 を 表示 
IT =I+1 * レ コー ド 番 号 を 計算 
PUT #2。 TI。 Torihiki * 取 引 レ コー ド を ファ イル へ 書き 込む 


Goukei = Goukei + Torihiki.Kingaku "合計 額 の 計算 
y ニ テッ +2 "画面 表示 の 行 位置 の 計算 
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[入金 の サブ プロ シー ジャ ] 





SUB Nyuukin (1I, KK$, S$) 


DIM faster AS NMtastertyDe * マ スタ ー レ コー ド の 設定 

DIM Torihiki AS Torihikitype * 取 引 レ コー ド の 設定 

DIM Goukei AS LONG * 合 計 を 倍 長 整数 と 設定 

CLS 

Torihiki.Kubun = K$ * 区 分 を 複写 

Torihiki.S = -1 * レ コー ド を 有効 と する (削除 は 0) 
Goukei = 0 


COLOR 2: LOCATE 1, 2S: PRINT "**** 売 掛 入 金 の 入力 ****" 
COLOR 3: LOCATE 3, 4S: PRINT" 年 月 日 ": 


COLOR 7: INPUT ""。 Torihiki.hizuke * 日 付 を 入力 
DO 
COLOR 3: LOCATE S, 8: PRINT "得意 先 番号 (終了 :ESO)": 
COLOR 7: Nyuuryoku S,。 30, S$ * 得 意 先 番号 を 入力 
IF S$ = CHR$(&H1B) THEN 
EXTT SUB 
ELSE 


Torihiki.TokuiBangou = VAL(S$) 
LOCATE S,。 30: PRINT USING "### 馬 が # 草 ": Torihiki.TokuiBangou: 
ENDIF 
GET #1, Torihiki.TokuiBangou, Master "マス ター ファ イル を 読む 
LOOP UNTTL Master.S 
COLOR 3: LOCATE S, 40: PRINT "得意 先 名 ": 


COLOR 7: PRINT Master.Namae > 得意 先 名 を 表示 
COLOR 3 
LOCATE 7, 14 


PRINT "入金 区 分 (現金 小切手 :1 振込 :2 手形 :3 終了 :ESC) 金 額 " 
COLOR 7 


y = * 画 面 の 行 位置 を 設定 
DO 
DO 
LOCATE y, 19: PRINT " 
Nyuuryoku y,。 19。S$ * 入 金 区 分 を 入力 
IF S$ = CHRS$(&H1B) THEN * も し も ESC な ら ば 
LOCATE y,。 19: PRINT " Op 
COLOR 3: LOCATE y, S6: PRINT "合計 ": * 合 計 を 表示 し 
COLOR 7: PRINT USING " 弁 弁 電電 。 弁 弁 #": Goukei 
LOCATE 19, 1 
PRINT "入金 の 入力 を 続け る : 何 か キー を 押す 終了 :ESC -->" 
DO * 一 時 停止 する 
S$ = INKEY$ 
LOOP UNTIL SS <> "" 
EXTT SUB 
END IF 


Torihiki.SyouBangou = VAL(S$) * 入 金 区 分 を 商品 番号 へ 複写 
LOCATE y, 19: PRINT USING " 弁 弁 尋 #": ToOrihiki.SyouBangou: 
* 入 金 区 分 番号 を 表示 


2 


LOOP UNTTL Torihiki.SyouBangou >= 1 AND Torihiki.SyouBangou <= 3 
SELECT CASE Torihiki.SyouBangou 

CASE 1: Kubun$ = "現金 小切手 " 

CASE 2: Kubun$ = "振込 " 

CASE 3: Kubun$ = "手形 " 


END SELECT 
LOCATE y, 26: PRINT USING " に 2 層 ": Kubun$: "入金 区 分 を 表示 
LOCATE y, 60: INPUT ""。 Torihiki.Kingaku * 金 額 を 入力 
LOCATE y。 60: PRINT USING " 反 井草 井草" Torihiki.Kingaku 

* 金 額 を 表示 
TI =I+1 * レ コー ド 番 号 を 計算 
PUT #2, IT,。 Torihiki * 取 引 レ コー ド を 書き 込む 
Goukei = Goukei + Torihiki.Kingaku "合計 額 を 計算 
ッ ニ ッ +2 * 画 面 の 次 の 行 位置 を 計算 





END SUB 


[繰越 の 入力 の サブ プ プ ロ シ ー ジ ャ ] 





SUB Kurikosi (I。 K$, S$) 


DIM Mtaster AS Nastertype > マス ター レコ ー ド の 設定 
DIM Torihiki AS Torihikitype * 取 引 レ コー ド の 設定 

CLS * 画 面 消去 
Torihiki.Kubun = K$ * 区 分 を 複写 

Torihiki.S = -1 * レ コー ド が 有効 の シル シ 
Goukei = 0 


COLOR 2: LOCATE S, 20: PRINT "**** 売 掛 の 前 月 繰越 額 の 入力 ****" 
COLOR 3: LOCATE 7。43: PRINT "年 月 日 
COLOR 7: INPUT "。 Torihiki.hizuke * 日 付 の 入力 
DO 
DO 
LOCATE 9, 30: PRINT " 4 
COLOR 3: LOCATE 9, 8: PRINT "得意 先 番号 (終了 :ESC)": 
COLOR 7: Nyuuryoku 9, 30, S$ * 得 意 先 番号 を 入力 
TF S$ = CHRS$(&H1B) THEN 
EXTIT SUB 
ELSE 
Torihiki.TokuiBangou = VAL(S$) 
LOCATE 9, 30: PRINT USING "# 電 サガ ## が "ToOrihiki.ToOkuiBangou: 


END IF 
GET #1。 Torihiki.TokuiBangou, Master * マ スタ ー フ ァイル を 読む 

LOOP UNTIL Master.S * レ コー ド が な けれ ば 再 入 力 

COLOR 3: LOCATE 9, 40: PRINT "得意 先 名 ": 

COLOR 7: PRINT Master.Namae * 得 意 先 名 を 表示 

COLOR 3: LOCATE 11, 33: PRINT " 金 額 " 

COLOR 7: y=13 * 行 位置 を 設定 

LOCATE y, S0: INPUT ""。 Torihiki.Kingaku * 金 額 を 入力 


LOCATE y, 350: PRINT USINO " 井 井 か 井草 。 草 牙 。 電 存 草 "。 Torihiki.Kingaku 


202:= 


TI 三 I+1 
PUT #2。 1。 Torihiki 


* 金 額 を 表示 
* レ コー ド 番 号 を 加え る 
* 取 引 レ コー ド を 書き 込む 























KEY(31) ON 
DO 

K$ = INKEY$ 
LOOP UNTIL K$ <> "" 
KEY(31) OFF 
SELECT CASE K$ 


EXIT SUB 

CASE CHR$( 層 HD) 
EXTT SUB 

END SELECT 


得意 先 番号 (終了 : ESC) 
商品 番号 (終了 : ESC) 
57 
39 
ト て 1 


売 掛 の 入力 を 続け る : 何 か キ ー を 押す 。 


COLOR 23: PRINT "": CHR$(&H1D): : COLOR 7 


LOCATE y, x: PRINT " 折 





> 入力 され た 文字 を 連結 し て まとめ る 文字 
* 指示 され た 位置 へ カー ソル 移動 


> を 点 減 し て 表示 
> ヘルプ の 機能 を ON に する 


* 1 文字 を 入力 


> ヘル プ の 機能 を OFF に する 


CASE 0 LM の Lc 月 ・ 5 "6"。 し "8"。 "O" 


S$=S$+K$ *K$ が 数 な を なら ば S$ へ 連結 する 
PRINT K$: *K$ を 表示 
CASE CHRS$(&HS) > バッ クス ペー スキ ー が 押さ れ た だ たら 
S$ = MID$(S$, 1,。 LEN(S$) - 1) * 右 の 1 文字 を 削る 
PRINT CHR$(&H1D): " ": CHRS$(&H1D): CHR$(&H1D): 
* 表 示 を 消し 、 カ ー ソ ル を 戻す 
CASE CHR$(&H1B) * エ スケ ー プ キー が 押さ れれ ば 
S$ = K$ * エ スケ ー プ コー ド を S$$ へ 送っ て 


"表示 を 消し 
* サ ププ ロ シ ー ジ ャ を 出る 
* リ ター ン キ ー が 押さ れれ ば 
* ザ サゲ グ デ プロ シー ジャ を 出る 


* ま キキ 売 掛 の 入力 **** 
年 月 日 90-10-05 
12 得意 先 名 人 金沢 商店 

商品 名 数 量 単 価 
洗濯 機 A 型 5 53,000 
准 蔵 庫 A 型 89.000 
TV14 型 87,000 
合計 


金額 

263,000 
267.000 
870,000 


1.402.000 


10 


終了 : ESC --> 
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7. 4 一 覧 表示 ・ 訂 正 ・ 削 除 
デー タ の 入力 が で きれ ば 、 そ れ を 画面 に 一 覧 表示 し た り 、 訂 正 や 削除 を する 機能 
が 必要 と な り ま す 。 
そこ で 、 こ れ ら の 機能 を 一 つの プロ グラ ム に まとめ て 作り まし た 。 


プロ グラ ム の 構造 は 次 の と お り で す 。 


PT レコ ー ド の 設定 、 標 題 ・ 見 出し の 表示 
則 マス ター ファ イル と 取引 ファ イル を 開く 
取引 ファ イル を 読む 
レコ ー ド が 有効 な ら ば 、 


区 分 が 1 な ら ば 、 
マス ター ファ イル か ら 


ーー を 未 得意 先 名 と 商品 名 を 読み 取っ て 
売 拓 取 引 を 画面 表示 
削除 1 
区 分 が 2 な ら ば 
も マス ター ファ イル か ら 
得意 先 名 を 読み 取っ て 





ント 4 入金 取引 を 画面 表示 





区 分 が 3 な ら ば 
マス ター ファ イル か ら 
得意 先 名 を 読み 取っ て 

前 月 繰越 を 画面 表示 


画面 表示 し た 行 数 を 加え て 、 

10 行 を 表示 し た ら 、 

次 の デー タ を 表示 する か 、 訂正 か 、 
削除 か 、 入力 する 


訂正 な ら ば 、 訂 正 の サブ プロ シー ジャ 
削除 な ら ば 、 削 除 の サブ ププ ロ シ ー ジ ャ 




















終了 か 、 訂 正 か 、 削 除 か 、 入 力 す る 
ー 訂正 な ら ば 、 訂 正 の サブ プロ シー ジャ へ 
| 後 処理 削除 な ら ば 、 削 除 の サ プ プ ロ シ ー ジ ャ へ 





ファ イル を 閉じ て 終了 
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訂正 する レコ ー ド 番号 を 入力 し て 
マス ター ファ イル を 読む 














取引 区 分 が 1 な ら ば 
売 掛 取 引 の 訂正 する 項目 番号 を 入力 し 、 
訂正 前 の デー タ を 表示 し 、 訂 正す る デー タ を 入 す る 










取引 区 分 が 2 な ら ば 
入金 取引 の 訂正 する 項目 番号 
訂正 前 の デー タ を 表示 し 、 語 







取引 区 分 が 3 な ら ば 
前 月 繰越 の 訂正 する 項目 番号 を 入力 し 、 
訂正 前 の デー タ を 表示 し 、 訂 正す る デー タ を 入 す る 





訂正 後 の レ コー ド を 書き 込む 


削除 する レコ ー ド 番号 を 入力 し て 
マス ター ファ イル を 読む 


削除 の シル シ を 付け て 、 フ ァイル へ 書き 戻 3 









DECLARE SUB Sakuzyo () 
DECLARE SUB Teisei () 


DEFINT A-Z 
* 売 掛 管理 3 ***** 売 掛 ・ 入 金 フ ァイル の 画面 表示 、 訂 正 、 削 除 ***** 
*$INCLUDE: OB.BT* * ッ イン クル ー ド ファ イル の 設定 
*$INCLUDE: "GEN.BT' 
TYPE Mastertype * マ スタ ー フ ァイル の レコ ー ド の 型 
Namae AS STRING * 10 * 得 意 先 ・ 商 品 の 名 前 は 全角 で 5 字 
S$ AS INTEGER * 削 除 の シル シ 
END TYPE 
TYPE Torihikitype > 取引 ファ イル の レコ ー ド の 型 
Kubun AS STRING\ 1 * 取 引 区 分 
Hizuke AS STRING* 8 * 日 付 (⑦y-mm-dd) 
TokuiBangou AS INTEGER * 得 意 先 番 号 
SyouBangou AS INTEOER * 商 品番 号 
Suuryou AS INTEGER * 数量 
Tanka AS LONG "単価 
Kingaku AS LONG 金額 
S AS INTEGER 削除 の シル シ 
END TYPE 
DIM Master AS MastertyDe ぅ > マス ター レコ ー ド の 設定 
DIM Torihiki AS Torihikitype * 取 引 レ コー ド の 設定 


CLS 
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PRINT "  ***** 売 掛 ・ 入 金 フ ァイル の 画面 表示 、 訂 正 、 削 除 *****" 
PRINT 
PRINT "ルー ド 区 分 日 付 得 番 得意 先 名 品番 商品 名 数 量 紅 
" 単 価 金 額 " 

VIEW PRINT 4 TO 23 
OPEN "B:IMTaster.dat'" FOR RANDOM AS #1 LEN = LEN(Master) 

> マス ター ファ イル を 開く 
OPEN "B:Torihiki.dat" FOR RANDOM AS #2 LEN = LEN(Torihiki) 

* 取 引 フ ァイル を 開く 


N = LOF(②) \ LEN(Torihiki) * フ ァイル の 大 き さ を 計算 
エ =0 * 行 数 し を ゼロ と する 
FOR I = 1TON 

GET #2,。 1。 Torihiki > 取引 フ ァイル を 読む 


IF Torihiki.S THEN 
SELECT CASE Torihiki. 反 Kubun 


CASE "1" * 区 分 が 1 な ら ば 
PRINT Li: "| "Torihiki.Kubun: "Torihiki.HHizuke: 
GET #1。Torihiki.TokuiBangou, Master 
PRINT USING 
" 春 厚 厚 識 ":Torihiki.TokuiBangou:IMaster.Narmae: 
GET #1。Torihiki.SyouBangou, Master 
PRINT USING 
" 春 ## 開 " の Torihiki.SyouBangou: Master.Narmae: 


PRINT USING "所 厚 ##" ToOrihiki.SuuryOu: 
PRINT USING " 井 厚 # 草 電 草 。# 電 "・ Torihiki.Tanka: 
PRINT USING " 電 非 。。## な か "Torihiki.Kingaku 
CASE "2" > 区 分 が 2 な ら ば 
PRINT Ii: " "ToOrihiki.KKubun: "の Torihiki.Hizuke: 
GET #1。Torihiki.TokuiBangou, Mtaster 
PRINT USING 
" 雪 存 存 が 層 層 ":Torihiki.TokuiBangou:IMtaster.Narmae: 
PRINT USINO "## 存 #" Torihiki.SyouBangou: 
SELECT CASE Torihiki.SyouBangou * 区 分 番号 で 区 分 を 複写 
CASE 1: Kubun$ = "現金 小切手 " 
CASE 2: Kubun$ = "振込 " 
CASE 3: Kubun$ = "手形 " 


END SELECT 
PRINTUSING " 雪 層 ": Kubun$: 
PRINT USING 
e 堪 井 井 非 。 非 左 。 電 が "Torihiki.IKimn gaku 
CASE "3" * 区 分 が 3 な ら ば 

PRINT 1: " "Torihiki.KKubun: "Torihiki.FHizuke: 
GET #1。Torihiki.TokuiBangou, Mtaster 
PRINT USING 

"春草 厚 電 避 ":Torihiki.TokuiBangou: Master.Narmae: 
PRINT " 前 月 繰越 ": 
PRINT USING 


井草 非 電電 牙 非 。 草 が か "TOrihiki. 民 in gaku 
END SELECT 
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上 レニ エレ + ィ 1 * 表 示 し た 行 数 を 計算 


ITF L MOD 10 = O THEN 0 行 ど と だ 
DO * 一 時 停止 し て 
PRINT "次 の デー タ : ペ ー ス 訂正 :C 削除 :D -->" 
DO 
T$ = INKEY$ * 次 か 、 訂 正 か 、 削 除 か 記号 を 入力 
LOOP UNTIL T$ = " "ORT$="C" OR T$ ="D" 
SELECT CASE TS$ 
CASE "C": Teisei *C な ら ば 訂正 
CASE "D": Sakuzyo や なら ば 削除 
END SELECT 
LOOP UNTILT$="" 
END IF 
END IF 
NEXT 1 
DO 
PRINT "終了 : ペ ーー 訂正 :C 削除 :D -->" 
DO 
工 $ ニ INKEY$ * 終 了 、 訂 正 か 、 削 除 か を 入力 
LOOP UNTILT$S=" "ORT$="C"ORT$="D" 
SELECT CASE T$ 
CASE "C": Teisei *YC な ら ば 訂正 
CASE "D": Sakuzyo や D な ら ば 削除 
END SELECT 
LOOP UNTILT$S="" 
CLOSE #1, #2 > ファ イル を 閉じ る 


END 





[訂正 の サ プ プ ロ シ ー ジ ャ ] 





SUB Teisei >? サ ププ ロ シ ー ジ ャ 訂正 


DIM Master AS MastertyDe 

DIM Torihiki AS TorihikityDe 

PRINT : INPUT "訂正 する レコ ー ド 番号 を 入力 し て くだ さい 。 -->"。R 
GET #2。R, Torihiki 

PRINT "訂正 する 項目 を 選択 し て 番号 を 入力 し て くだ さい 。" 

SELECT CASE Torihiki.Kubun 


CASE "1" * 売 掛 取 引 の 訂正 
INPUT "日 付 :1 得意 先 番号 :2 商品 番号 :3 数 量 :4 単価 :? -->",B$ 
SELECT CASE B$ 


CASE "1": PRINT Torihiki.FHHizuke: "-->": 
INPUT ""。 Torihiki.Hizuke 

CASE "2": PRINT Torihiki.TokuiBangou: "-->": 
INPUT ""。 Torihiki.TokuiBangou 

CASE "3": PRINT Torihiki.SyouBangoui "ーー": 
INPUT ""。 Torihiki.SyouBamgou 

CASE "4": PRINT Torihiki.Suuryou: "ーー テリ : 
INPUT ""。 Torihiki.Suuryou 
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Torihiki.Kingaku=Torihiki.Suuryou*Torihiki.Tanka 
CASE "5": PRINT Torihiki.Tanka:i "-->": 
INPUT ""。 Torihiki.Tanka 


Torihiki. 反 Kingaku=Torihiki.Suuryou*Torihiki.Tanka 


END SELECT 

GASE "の " * 入 金 取 引 の 訂正 
INPUT "日 付 :1 得意 先 番号 :2 入金 区 分 番号 :3 入金 額 :4 -->"。B$ 
SELECT CASE B$ 


CASE "1": PRINT Torihiki.FHizuke: "-->": 
INPUT ""。 Torihiki.Hizuke 

CASE "2": PRINT Torihiki.TokuiBangou: "-->": 
INPUT ""。 Torihiki.TokuiBangou 

CASE "3": PRINT Torihiki.SyouBangoui "-->": 
INPUT ""。 Torihiki.SyouBangou 

CASE "4": PRINT Torihiki.Kingaku: "-->": 
INPUT ""。 Torihiki.Kingaku 


END SELECT 

CASE "3" * 前 月 繰越 の 困 正 
INPUT "日 付 :1 得意 先 番号 :2 入金 額 :3 -->"。B$ 
SELECT CASE B$ 


CASE "1": PRINT Torihiki.Hizuke: "-->": 
INPUT ""。 Torihiki.Hizuke 

CASE "2": PRINT Torihiki.TokuiBangou: "-->": 
INPUT ""。 Torihiki.TokuiBangou 

CASE "3": PRINT Torihiki.Kingaku: "-->": 
INPUT ""。 Torihiki.Kingaku 


END SELECT 

END SELECT 

PUT #2, R, Torihiki * 訂 正 済 み の レ コー ド の 書き 込み 
END SUB 





[削除 の サブ プロシージャ ] 


SUB Sakuzyo 

DIM Torihiki AS Torihikitype 
PRINT : INPUT "削除 する レコ ー ド 番号 を 入力 し て くだ さい 。 -->"。R 

GET #2, 選 , Torihiki > 削除 す る レコ ー ド を 読む 

* 削 除 す る シル シ を つけ る 

* 削 除 す る レコ ー ド を 書き 込む 


* サ ププ ロ シ ー ジ ャ 削除 


Torihiki.S =0 
PUT #2。 民 , Torihiki 
END SUB 
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7. 5 得意 先 別 表示 と 請求 書 の 印刷 


取引 の 入力 が で きま し た か ら 、 次 は 得意 先 別 の 売 掛 関係 の 取引 を まとめ て 表示 す 
る 機能 と 、 月 末 に 請求 書 の 印刷 を する 機能 を 作り ます 。 

これ ら の プロ グラ ム は 、 画 面 に 表示 する こと と プリ ンタ ー に 印刷 する こと の 違い 
が ある だ け で 、 基 本 的 に は 同じ な の で す 。 

そこ で 、 は じ め に 画面 表示 の プロ グラ ム を 作り 、 次 に 、 画 面 に 表示 する PRINT を 印 
刷 の LPRINT へ 変更 し 、 請 求 書 と いう 標題 を 加え れ ば よい の で す 。 ま た 、 請 求 書 は 1 
件 1 枚 と し て 改 ペ ー ジ を し まし た 。 改 ペー ジ は 、LPRINT CHR$(12) で 実行 で きま す 。 


プロ グラ ム の 構造 は 次 の と お り で す 。 


ag 人 レコ ー ド の 型 の 設定 な ど 
準備 マス ター ファ イル と 取引 ファ イル を 開く 


得意 先 別 得意 先 
画面 表示 の 数 だ け 


繰り 返す 


得意 先 番号 、 得 意 先 名 、 
見 出し を 画面 表示 


取引 の 数 だ け | * が 有効 で 
得意 先 番号 が 
コル 一 致し た ら 
取引 区 分 が 1 な ら ば 


売 掛 取引 を 画面 表示 


取引 区 分 が 2 な ら ば 
入金 取引 を 画面 表示 


取引 区 分 が 3 な ら ば 
前 月 繰越 を 画面 表示 





ルス 一 時 停止 し て 、 
何 か 押し た ら 次 へ 進む 


後 処理 ファ イル を 閉じ て 終了 する 
請求 書 の 印刷 の プロ グラ ム の 構造 は 、 上 記 に ほぼ 同じ な の で 省略 し ます 。 
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DEFINT A-Z 

* 売 掛 管理 4 ***** 得 意 先 別売 掛 入金 取引 の 画面 表示 ***** 

TYPE MastertyDe * マ スタ ー フ ァイル の レコ ー ド の 型 
Namae AS STRING * 10 * 得 意 先 ・ 商 品 の 名 前 は 全角 で 5 字 
$ AS INTEGER * 削 除 の シル シ 

END TYPE 

TYPE Torihikitypc * 取 引 フ ァイル の レコ ー ド の 型 
kubun AS STRING * 1 * 取 引 の 区 分 
Hizuke AS STRING* 8 * 日付 
TokuiBangou AS INTEGER * 得 意 先 番号 
Syoubangou AS INTEGER "商品 番号 


Suuryou AS INTEOER * 数 量 
Tanka AS LONG "単価 
Kingaku AS LONG * 金 額 
AS INTEGER * 削 除 の シル シ 


AS MastertypDe * マ スタ ー レ コー ド の 設定 
AS Torihikitype * 取 引 レ コー ド の 設定 
AS LONG * 残 高 は 倍 長 整 数 


**※*※*※*※ 得 音 先 別売 掛 入金 取引 の 画面 表示 *****" 





VIEW PRINT 4 TO 25 
OPEN "8:Mfaster.dat" FOR RANDOM AS #1 LEN = LEN(Master) 
OPEN "B:Torihiki.dat" FOR RANDOM AS #2 LEN = LEN(Torihiki) 


FOR I = 1TOS0 * マ スタ ー フ ァイル の 1 か ら 50 ま で の レコ ー ド を 読む 
GET #1。 IT, Master > マス ター ファ イル を 読む 
IF Master.S THEN 
PRINT : PRINTUSING " 直す 宙 返 ":I:Master.Namae 
PRINT "ニーーーーーーー ニ ーー ニー ニー ニー ニニ ーー ニー ニー ニーーーーーーーーーーーーーーーーーー ニ ーーーーーー 
< 前 和 有 有 続き --ーー-ーーーーーーーーーー 
PRINT" レード 日 付 商品 番号 商品 名 数 量 単価 "": 
く 前 行 続き >" 金 額 残 高 " 
PRINT 2 
前 寺 。。 ニ ミニ ニニ ニート P。 ド ee 
J = LOF(②2) \ LEN(Torihiki) * 取 引 フ ァイル の 大 き さ を 計算 
Zandaka =0 残高 を ゼロ と する 
し =8 * 取 引 デ ー タ を 表示 し た 行 数 
FOR K = 1 TO 了 
GET #2, KK, Torihiki * 取 引 フ ァイル を 読む 


IF Torihiki.S AND 』 =Torihiki.TokuiBangou THEN 
SELECT CASE Torihiki.kubun 
CASE "1" * 売 掛 取 引 の 場合 
PRINT USINO "### 草 "・ KK・ * レ コー ド 番 号 
PRINTUSING " 補 避 "の Torihiki.FHizuke:' 日 付 
PRINT USINO "# け 草 "・ ToOrihiki.Syoubangou: 


GET #1, Torihiki.Syoubangou, Master 
> マス ター ファ イル を 読む 
PRINTUSING " 雪 層 Master.Namae: 
* 商 品名 
PRINT USING " 井 け 非 厚 "・ Orihiki.SuuryOUu: * 数 量 
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PRINT USINO " 電 。 厚 存 "ToOrihiki.Tanka: > 単価 
PRINT USINO "電電 趣 井 #。 弁 草 "・ ToOrihiki.Kingalku: 

* 金 額 
Zandaka = Zandaka + Torihiki.Kingaku "残高 の 計算 
PRINT USINO "電電 非 草 。 井 井 。 存 ": Zandaka "残高 の 表示 

CASE "2" * 入 金 取 引 の 場合 

PRINT USING "# 厚 存 ": KK: > レコ ー ド 番号 
PRINTUSING" 和 w "の Torihiki.Hizuke:' 日 付 
PRINT USING "#### 厚 "ToOrihiki.Syoubangou: 


* 入 金 区 分 番号 
SELECT CASE Torihiki.Syoubangou 
CASE 1: kubun$ = "現金 小切手 " 
CASE 2: kubun$ = "振込 " 
CASE 3: kubun$ = "手形 " 
END SELECT 
PRINTUSING " 入金 区 分 : 用 w": kubun$: 
* 入 金 区 分 
PRINT USINO " 井 井 電電, 井 電電 草 "Orihiki.Kingaku: 
* 入 金額 
Zandaka = Zandaka - Torihiki.Kingaku "残高 の 計算 
PRINT " As 
PRINT USING "二井 井 , 井 非 か , 厚 弁 が ": 選 andaka 残高 の 表示 
CASE "3" * 前 月 繰越 の 場合 
PRINT USING "# 厚 草 看 "KK: > レコ ー ド 番号 
PRINTUSING " 宮 w の Torihiki.Hizuke:' 日 付 
PRINT " 前 月 繰越 


PRINT USINO "電電 電 井草 草 "・ TWDNRRRIRRE 
* 金 額 
Zandaka = Zandaka + Torihiki.Kingaku "残高 の 計算 
PRINT USING " 井 電電 草 。 井 弁 #。 草 # 草 ": Zandaka  ' 残 高 の 表 示 
END SELECT 
し = エレ +1 
END IF 
IF L MOD 24 THEN 
PRINT " 何 か キ ー を 押す と 続け ます 。 " 
DO 
LOOP UNTTL INKEYS <> "" 
LOCATE CSRLIN, 1 
END IF 
NEXT K 
PRINT 人 
ぐ 前 行 続き > ニー-ー--ーーーーー 
PRINT " 何 か キ ー を 押し て くだ さい 。" 
DO 
LOOP UNTIL INKEY$ <> "" 


CLOSE #1, #2 
END 
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[請求 書 の 印刷 の サブ プロ シー ジャ ] 


DEFINT A-Z 
* 売 掛 管理 5 ***** 請 求 書 の F 刷 ** キ キキ 
TYPE Mastertype > マス ター ファ イル の レコ ー ド の 型 
Namae AS STRING * 10 * 得 意 先 ・ 商 品 の 名 前 は 全角 で 5 字 
AS INTEGER * 削 除 の シル シ 


AS STRING\* 1 
AS STRING* 8 


TokuiBangou AS INTEOER 
Syoubangou AS INTEGER 
SuuryoOu AS INTEGER 
Tanka AS LONG 

AS LONG 


AS INTEGER 


AS MastertyDe 
AS TorihikityDe 
AS LONG 





PRINT " * 玉 玉 表 求 書 の EH 届 素 素 玉 玉 来 
PRINT 
VEW PRINT 4 TO 25 
OPEN "BB :Mtaster.dat" FOR RANDOM AS #1 LEN = LEN(Master) 
OPEN "B:Torihiki.dat'" FOR RANDOM AS #2 LEN = LEN(Torihiki) 
FORI =1TOS30 

GET #1, I。 Master 

IF NNtaster.S THEN 


LPRINT CHR$(12) * 改 ペー ジ 

LPRINT : LPRINT 

LPRINT " 0 
く 前 行 続き >" "DATES$ 

LPRINT " 請 求 書 " 

LPRINT : LPRINT USING " NO.###": T 

LPRINTUSING " お 得意 様 吉 & 殿 ": Master.Namae 

LPRINT " 9 
ぐ 前 行 続き > " (株 ) QB 電器 販売 " 

LPRINT Re 
ぐ 前 行 続き つ  ------------------- が 

LPRINT" レード 日付 商品 番号 商品 名 数 量 単 価 ": 
ぐ 前 行 続き >" 金 額 残 高 " 

LPRINT 人 


0 間 " 
J = LOF(2) \ LEN(Torihiki) 
Zandaka =0 
FOR K = 1 TOJ 
GET #2。 区 , Torihiki 
IF Torihiki.S AND 1 = Torihiki.TokuiBangou THEN 
SELECT CASE Torihiki.kubun 
CASE "1" 
LPRINT USINO " 埋 在 草 "・ KK: 
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LPRINTUSING " 宙 層 ": Torihiki.FHHizuke: 
LPRINT USING " ガ 存 # 暮 看 "・ Torihiki.Syoubangou: 
GET #1。Torihiki.Syoubangou。 Master 
LPRINTUSING " 志 層 "Master.Narnae: 
LPRINT USING " 夫 ## 厚 草 "・ Orihiki.SuuryOu: 
LPRINT USING "井草 非 提 弁 , 草 草 非 "・ ToOrihiki.Tanka: 
LPRINT USING " 電 看 井草 電電 。 弁 看 "・ TOrihiki. 民 Kingaku: 
Zandaka = andaka + Torihiki.Kingaku 
LPRINT USING " 弁 井 看 井 。 弁 電電 。 電 厚 #": andaka 
CASE "2" 

LPRINT USING "# 存 厚 "。 KK: 
LPRINTUSING " 届 ": Torihiki.Hizuke: 
LPRINT USINO "電電 看 看 #"・ TOrihiki.SyOubangOu: 
SELECT CASE Torihiki.Syoubangou 

CASE 1: kubun$ = "現金 小切手 " 

CASE 2: kubun$ = "振込 " 

CASE 3: kubun$ = "手形 " 
END SELECT 
LPRINTUSING " 入金 区 分 : 色 玉 ": kubun$: 
LPRINT USINO "電電 電 。 厚 が 看 。 電 左 草 "。 ToOrihiki.IKimgaku: 
andaka = 三 nd - Torihiki.Kingaku 
LPRINT " 
LPRINT USING " 間 電 ##, 電 が #"・ の andaka 

CASE "3" 

LPRINT USING "# 厚 #"。 K: 
LPRINTUSING " 補 名 5: YO 
LPRINT " 前 月 繰越 
LPRINT USINO "## 井 井 。 左 芽 。 春 看 "。 TOrihiki. TKingaku: 
Zandaka = ZZandaka + Torihiki. 失 ingaku 
LPRINT USING "## 電 厚 。 厚 看 共 。 春 ##"・ の andaka 


END SELECT 
END IF 
NEXTK 
LPRINT "ーーーーーーーーーーーーーーーーーー ニ ーーーーーーーーーーーーーーーーーー ニ ーー ニーーー ニ ーー ニニ ーー ニー ニーーー 
ぐ 前 行 続き > 。------------------- 9 
LPRINT USING " 御 請求 額 合計 刀 紀 #, 妊 , 理 持 の andaka 
LPRINT 6 


PRINT " 何 か キ ー を 押し て くだ さい 。 
DO 
LOOP UNTIL INKEY$ <> "" 
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7. 6 売 掛 管理 の まとめ 
いよ いよ 、 売 掛 管理 の まとめ の 段階 で す 。 ま と め る 要領 は 次 の と お り で す 。 
1 。 売 掛 管理 の 機能 を 画面 の メニ ュー か ら 選 択 す る メイ ンプ ロ シ ー ジ ャ を 作る 。 


2。 こ れ ま で の メイ ンプ ロ シ ー ジ ャ を サブ ププ ブ プロシージャ と し て 、 結 合 する 方 法 で そ 
れ ぞ れ の サブ プロ シー ジャ を 複写 する 。 


3。 レコ ー ド 型 の 設定 は 、 メ イン プロ シー ジャ で 行う の で サブ プロ シー ジャ か ら 削 
除 す る 。 


4。 イ ンク ルー ド フ ァイル の 設定 も や 、 メ イン プロ シー ジャ で 行う の で サ プ プ ロ シ ー 
ジャ か ら 削 除 す る 。 


5。 結 合 の 際 サ ププ ロ シ ー ジ ャ も 同時 に 結合 され る の で 、 こ れ を 独立 し た サブ プロ 
シー ジャ と し て 設定 する 。 


6 。Helpsub: と いう サブ ルー チン は メイ ン に お く 必 要 が ある の で 、 取 引 の 入力 の サ 
ププ ロ シ ー ジ ャ か ら 分 離し て 、 メ イン に 移動 する 。 


7。 プロ グラ ム の 中 で END で 強制 終了 する 場合 は 、EXITSUB と し て サブ プロ シー ジャ 
か ら 抜 ける よ う に する 。 


売 掛 管理 の プロ グラ ム の 概要 は 次 の と お り で す 。 
(前 節 に 同じ 部 分 が 多い の で 、 一 部 省略 し ます 。) 


DEFINT A-Z 

DECLARE SUB Urikake (II。 IK$, S$) 
DECLARE SUB Nyuukin (1 K$, S$) 
DECLARE SUB Kurikosi (I。 K$, S$) 
DECLARE SUB Nyuuryoku (Y,。 文 。 S$) 
DECLARE SUB MtasterInput () 


DECLARE SUB TorihikiInput () 
DECLARE SUB ItiranTeiseiSakuzyo () 
DECLARE SUB TokuisakiItiran () 





* 売 掛 管理 ***** 売 掛 管理 の ま と め * ネ * ネ *** 
*$INCLUDE: "QB.BI" * イ ンク ルー ド フ ァイル の 設定 
*$INCLUDE: "GEN.BI* 
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TYPE Mastertype * マ スタ ー フ ァイル の レコ ー ド の 下 


Namae AS STRING* 10 * 得 意 先 ・ 商 品 の 名 前 は 全角 で 5 字 
S AS INTEGER * 削 除 の シル シ 
END TYPE 
TYPE TorihikityDe 
Kubun AS STRING* 1 
Hizuke AS STRING* 8 


TokuiBangou AS INTEGER 
SyouBangou AS INTEOER 
SuuryOu AS INTEOER 


Tanka AS LONG 
Kingaku AS LONG 
S AS INTEGER 


AS Mastertype * マ スタ ー レ コー ド の 設定 
AS Torihikitype * 取 引 レ コー ド の 設定 


VEW PRINT 1 TO 2 


20・ COLOR 2:PR IN'T "キキ ** 玉 玉 玉 玉 来 玉 玉 玉 玉 玉 玉 玉 来 来 素 玉 玉 玉 玉 玉 来 素 素 玉 玉 玉 来 素 素 素 玉 玉水 水玉 玉 リ 
20: PRINTT "* ネ 玉 玉 玉 来 来 玉 玉 来 玉 玉 来 玉 来 来 玉 来 来 来 来 来 玉 来 玉 玉 来 来 玉 玉 来 玉 玉 来 来 玉 来 玉 玉 玉 玉 ! 
PRINT "キキ ネ 玉 玉 玉 玉 売 掛 管 理 素 玉 玉 玉 来 玉 来 氷 来 " 
PRINT "ネネ 米 玉 玉 玉 来 玉 玉 来 玉 玉 玉 玉 来 玉 玉 玉 玉 玉 玉 玉 来 来 玉 玉 玉 来 玉 玉 来 来 来 玉 玉 来 玉 玉 来 来 ! 
PRINT "キネ * 玉 玉 玉 玉 玉 来 玉 玉 玉 玉 玉 玉 玉 来 来 来 来 素 来 玉 来 来 来 来 玉 玉 来 来 玉 玉 来 来 玉 水玉 玉 玉 け 


LOCATE 8, 20: COLOR 6:PRINT "1: マス ター ファ イル の 入力 ・ 削 除 " 
LOCATE 10, 20: PRINT "2: 取引 ファ イル の 入力 " 
LOCATE 12, 20: PRINT "3: 取引 ファ イル の 一 覧 、 訂 正 、 削 除 " 
LOCATE 14, 20: PRINT "4: 得意 先 別売 掛 取 引 の 一 覧 " 
LOCATE 16, 20: PRINT "3: 請求 書 の 印刷 " 
LOCATE 18, 20: PRINT "6: 終了 " 
LOCATE 20, 22:COLOR 7:PRINT" 機 能 を 選択 し て 番号 を 入力 し て くだ さい 。-->" 
DO 
Y$ = INKEY$ 
LOOP UNTIL Y$ >= "1" AND Y$ <= "6" 
SELECT CASE Y$ 
CASE "1": MtasterInput *1 な ら ば マス ター ファ イル の 入力 
CASE "2": TorihikiInput * う な ら ば 取引 ファ イル の 入力 
CASE "3": ItiranTeiseiSakuzyo *3 な ら ば 一 覧 表示 、 訂 正 、 削 除 
CASE "4": TokuisakiItiran ?4 な ら ば 得意 先 別 の 一 覧 表示 
CASE "S": Seikyuusyo *$ な ら ば 請求 書 の 印刷 
CASE "6": END ?6 な ら ば 終了 
END SELECT 
LOOP 
END 
Helpsub: * ヘ ルプ 画面 表示 の サブ ルー チン 
HX = POS(O): HY = CSRLIN * カ ー ソ ル の 現在 位置 を 得る 
(ヘル プ 画 面 を 表示 する サブ ルー チン 、 一 部 省略 ) 
RETURN 
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[一 覧 、 訂 正 、 削 除 の サブ ププ ブ プロシージャ ] 


SUB ItiranTeise1SakuzyO 
***** 売 掛 ・ 入 金 フ ァイル の 画面 表示 、 訂 正 、 削 除 ***** 
DIM Master AS Mastertype > マスター レコ ー ド の 設定 
(一 部 省略 、 売 掛 管理 3 に 同じ ) 
> ファ イル を 閉じ る 


SUB Kurikosi 1,。 KS, S$) * サ ププ ブ プロシージャ 繰越 の 入力 
DIM Master AS Mastertype * マ スタ ー レ コー ド の 設定 





[マス ター ファ イル の 入力 の サ プ プ ロ シ ー ジ ャ ] 


SUB MtasterInput 

DEFINT A-Z 

* 売 掛 管理 1 ** ネ ネネ 得意 先 ・ 商 品 マ スタ ー フ ァイル の 登録 ・ 削 除 ***** 

DIM IMaster AS IMtastertyDe > マス ター ファ イル の レコ ー ド 設定 


> ファ イル を 閉じ る 


* サ ププ ロ シ ー ジ ャ 入金 
AS MastertyDe * マ スタ ー レ コー ド の 設定 


SUB Nyuuryoku (Y, 文 , S$E) 


* 入 力 さ れ た 文字 を 連結 する 文字 
* 指 示さ れ た 位置 へ カー ソル 移動 
(一 部 省略 
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[請求 書 の 印刷 の サブ ププ ロ シ ー ジ ャ ] 


SUB Seikyuusyo 
* 売 掛 管理 5 ” ****y 請 求 書 の 印刷 ***w* 
DIM Master AS IMtastertyDe 


DIM Master AS MtastertyDe 

(一 部 省略 ) 
PUT #2。 RTorihiki > 訂正 済み の レコ ー ド の 書き 込み 
END SUB 


[得意 先 別 一 覧 表示 サブ ププ ブロ シー ジャ ] 


SUB Tokuisakiltiran * サ ブ プ ロ シ ー ジ ャ 得意 先 別 一 覧 表示 
* 売 掛 管理 4 **** ォ 得意 先 別売 掛 入金 取引 の 画面 表示 ***** 
DIM IMaster AS MastertyDe > マス ター レコ ー ド の 設定 

(一 部 省略 ) 





CLOSE #1, #2 
END SUB 





[取引 ファ イル の 入 の サ プ プ ブ プロシージャ ] 


SUB TorihikiInput 
* 売 掛 管理 2 ***** 売 掛 ・ 入 金 フ ァ イ ル の 入力 ***** 
DIM Master AS MtastertyDe * マ スタ ー の レコ ー ド の 型 
(一 部 省略 ) 
KEY(31) GOSUB Helpsub: *HELP を 押し た ら ヘ ルプ 画面 を 表示 
(一 部 省略 ) 


SUB Urikake (I,。 KK$, S$) 
DIM Master AS Mastertype * マ スタ ー レ コー ド の 現 
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第 @ 章 
お 絵描き ソフ ト 
マウ ス の 使い 方 の 基本 を 学び ます 。 





8. 1 マウ ス で 点 を 描く 


マウ ス を 使う た め に は 、Quick Bas ic の マウ ス に 関す る ライ ブラ リ を 
利用 する 必要 が あり ます 。 そ れ は 、 次 の よう な ファ イル で す 。 
ライ ブラ リ 名 MOUSE.LIB 
クイ ッ ク ラ イプ ラリ 名 MOUSE.QLB 
イン クル ー ド ファ イル 名 QB.BI MOUSE.BI 


これ ら の ファ イル は すでに イン スト ー ル され て いる の で 、 直 ち に マウ ス を 使用 で 
きま す 。 


これ まで QB を 起動 する 際 に は 、 漢 字 変換 を する た め に 次 の よう に 入力 し て いま 
し だ 。 

A>QB /LGEN 
マウ ゥ ウス を 使う た め に は 、 次 の よう に 起動 し ます 。 

A>QB /LMOUSE 


さら に 、 プ ログ ラム の 先頭 で イン クル ー ド ファ イル を 次 の よう に 指定 し ます 。 


*$INCLUDE: "QB.BT" 
*$INCLUDE: "MOUSE.BT" 


これ で 、 準 備 は 終了 し まし た 。 


点 を 描く プロ グラ ム は 、 次 の と お り で す 。 


DEFINT A-Z 
> マウ ス 1 * ネ **※ 古 を 描く **** 
*$INCLUDE: "QB.BI"* 


ッッ インク ルー ド フ ァイル の 設定 
*$INCLUDE: "MOUSE.BI* 


> マウ ス の 初期 化 
ぅ マウス の 表示 


MousePush 0,。 Y, 区 。 Hidari。 Migi 


* マ ウス の 左 ボ タン が 押さ れ た だ 時 点 の 位置 を 返す 
LOOP UNTTIL Hidari = -1 * 左 ボタ ン が 押さ きれ る まで 繰り 返す 


PSET ( 文 ,」 や ), 2 * 左 ボタ ン が 押さ れ た 位置 へ 点 を 描く 


LOOP "繰り 返す 
END 
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マウ ス を 使う た め に は 、 ま ず 、MouseInit で マウ ス を 初期 化し ます 。 
次 に 、MouseShow で マウ ス を 表示 し ます 。 特 に 位置 を 指定 し て し な い の で 画面 中 央 


に 表示 され ます 。 
MousePush は マウ ス の ボタ ン が 押さ れ た 位置 の 座標 を 得る サブ ププ ロ シ ー ジ ャ で す 。 


MousePush の 機能 は 次 の と お り で す 。 


MousePush 0, Y, 文 , HHidari, Migi 


右 ボ タン を 押す と -1、 押 き な い と 0 を 返し ます 。 
ーー 左 ボ タン を 押す と -1、 押 き な い と 0 を 返し ます 。 


マウ ス の 横 方 向 の 位置 (0 か ら 639 ま で ) を 返し ます 。 
マウ ス の 縦 方 向 の 位置 (0 か ら 399 ま で ) を 返し ます 。 


0 と する と 左 ボ タン を 押し た と き の マ ウス の 位置 が 返さ れ ま す 。 
1 と する と 右 ボ タン を 押し た と き の マ ウス の 位置 が 返さ れ ま す 。 


MousePush の 機能 を 理解 する た め に 、 次 の プロ グラ ム を 実行 し て くだ さい 。 


DEFINT A-Z 

> マウ ス 2 **** ネ MousePush の 機能 **** 
*$INCLUDE: "QB.BI" 

*$INCLUDE: MOUSE.BI' 


> マウ ス の 初期 化 
* マ ウス の 表示 


MousePush 0, Y。 , Hidari,。 Migi "マウ ス の 左 ボ タン が 押さ れ た 位置 を 取得 


PRINT Y, 文 , Hidari。 Migi 
LOOP * 繰 り 返 す 





ここ で 、MousePush 0, Y, 駐 , Hidari, Migi を MousePush 1。 Y, 文 , Fidari。 Migi 
と 取り 替え て 実行 し て くだ さい 。 
MousePush 0,。 文 , Y, Hidari, Migi で は 、 左 ボタ ン を 押し た 時 の マウ ス の 位置 
(x、Y) が 返さ れ 、MousePush 1,。 文 , Y。 Hidari, Migi で は 、 右 ボタ ン を 押し た 時 
の マウ ス の 位置 (X、Y) が 返さ れ て いる こと が 分 り ま す 。 
また 、 押 され て いな い 状 態 で も それ ぞ れ の デー タ が 変化 し な いま まで 返さ れ て い 
る こと が 分 り ま す 。 


次 に 、 連 続 し て 点 を 描く プロ グラ ム を つく り ま す 。 
MousePush で は 、 ボ タン を 押し た 一 瞬 の マウ ゥ ス の 位置 を 返す だけ な の で 、 連 続 し 
て 点 を 描く こと が で きま せん 。 そこで 、MousePoll を 使い ます 。 





DEFINT A-Z 
> マウ ス 3 **** 還 続 の 点 を 描 く ネギ キ * 玉 
*$INCLUDE: "QB.BI* 


一 必 2 一 


*$INCLUDE: "MOUSE.BI" 


> マウ ス の 初期 化 
* マ ウゥ ウス の 表示 


MousePoll Y, 区 。FHidari。 Itigi 


* マ ウス の 左 ボ タン が 押さ れ た 時 点 の 位置 を 返す 

LOOP UNTIL Hidari = -1 * 左 ボタ ン が 押さ れる まで 繰り 返す 
PSET ( 文 」Y), 2 * 点 を 描く 

LOOP 


END 





今度 は 、 左 ボタ ン を 押し て いる 間 に 点 が 連続 し て 描か れる よう に な り ま し た 。 
MousePoll は 、 ボ タン を 押し て も 押さ な く て も 、 い つ で も る 現在 時 点 の マウ ス の 位 
置 を 返し て きま す 。 


この こと を 、 次 の プロ グラ ム で 確か め て くだ さい 。 


DEFINT A-Z 

ウス. 4 ****MousePoll の 機能 **** 
*$INCLUDE: 'QB.BI" 

*$INCLUDE: "MOUSE.BI" 


* マ ウス の 初期 化 
* マ ウゥ ス の 表示 


MousePoll Y, 文 」Hidari, Migi * マ ウス の 現在 位置 を 返す 
PRINT Y, 文 」Hidari, Migi 


LOOP "繰り 返す 





MousePoll の 機能 は 、 次 の と お り で す 。 

MousePoll Y, 丈 , Hidari, Migi 
右 ボ タン を 押す と -1、 押 さき ない と 0 を 返し ます 。 
左 ボ タン を 押す と -1、 押 さき ない と 0 を 返し ます 。 


マウ ス の 横 方 向 の 現在 位置 (0 か ら 639 ま で ) を 返し ます 。 
マウ ス の 縦 方 向 の 現在 位置 (0 か ら 399 ま で ) を 返し ます 。 
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8. 2 第 二 画 面 の 利用 


次 に 、 直 線 を 描く プロ グラ ム を 作り ます 。 
前 節 と 同様 に 、MousePush 及 び MousePoll を 利用 し ます 。 プ ログ ラム の 構造 は 次 の 
と お り で す 。 






マウ ス の 初期 化 
マウ ス の 表示 














マウ ス の 左 ボ タン を 押し た 
位置 の デー タ を 取得 
左 ボ タン を 離し た ら 次 に 進 





マウ ス の 左 ポ タン を 押し た 
位置 の デー タ を 取得 
左 ボ タン を 離し た ら 次 に 進む 


DEFINT A-Z 

* マ ウス 5 ネネ **※% 提 を 抽 く キキ ** (MOUSES.BAS) 
*$INCLUDE: 'QB.BI" 

*$INCLUDE: "MOUSE.BI' 


* マ ウス の 初期 化 
> ぅ > マ ウス の 表示 


LOCATE 23。3: PRINT " 線 の 始点 を 指示 し て くだ さい 。" 
DO 
MousePush 0,Y1, 文 1 HHidari, Migi 
* 左 ボタ ン を 押し た 時 点 の 位置 を 返す 
LOOP UNTIL Hidari = -1 * 左 ボタ ン を 押す まで 繰り 返す 
DO 


MousePoll Y, 文 」Hidari。 Migi > 現在 の マウ ゥ ウス の 位置 等 を 取得 
LOOP UNTIL Hidari =0 * 左 ボタ ン を 離し て か ら 次 に 進む 
LOCATE 23。3: PRINT " 線 の 終点 を 指示 し て くだ さい 。" 

DO 


MousePush 0。Y2。 区 2。 FIidari。 Migi 
*> 左 ボタ ン を 押し た 時 点 の 位置 を 返す 

LOOP UNTIL Hidari * 左 ボタ ン を 押す まで 繰り 返す 
LINE (区 1, Y1)-( 文 2, Y2)。 2 * 線 を 描く 
DO 

MousePoll Y, 文 」 Hidari。 Migi > 現在 の マウ ス の 位置 等 を 取得 
LOOP UNTIL NOT FIidari * 左 ボタ ン を 離し て か ら 次 に 進む 

LOOP * 繰 り 返 す 
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MousePush に よっ て 、 左 ボタ ン を 押し た 時 点 の マウ ゥ ス の 位置 を 取得 し 、MousePoll 
に よっ て 、 左 ボタ ン を 離し た 時 点 の 位置 を 取得 し て 、 次 へ 進み ます 。 

も し も 、 マ ウス の 左 ボ タン を 離す 部 分 を 省略 する と 、 マ ウス の 左 ボ タン を 一 度 押 
すこ と に よっ て 線 の 始点 と 終点 の 位置 の 取得 が 一 挙 に 終っ て し まい 、 始 点 と 終点 が 
同じ 位置 に な り ま す 。 な ぜ な ら 、 人 間 の 指 の 動き は 、 パ ソコ ン に 比 し て あま り に 有 件 
く 、 終 点 の 判定 の 前 に 左 ボ タン か ら 指 を 離す こと が で き な い か ら で す 。 

この プロ グラ ム に は 終了 の 判定 が な い の で 、 ス トッ プ キ ー を 押し て 止め て くだ さ 
い 。 (いずれ 、 終 了 す る ルー チン を 加え る 予定 で す 。) 

き て 、 こ の プロ グラ ム を 使っ て みて いか が で し ょ うか 。 線 を 引く < 際 に 仮 の 線 が 表 
示 き されない の で 、 ど の よう に 描か れる か わか ら ず 、 非 常に 使い づら いと 思い ます 。 
そこ で 、 仮 の 線 を 描く 工夫 を し ます 。 

また 、 画 面 を よく 見 る と マウ ス の だ た だめ に 線 の 一 部 が 欠け て いま すか ら 、 こ れ も ゃ も 改 
善 する 必要 が あり ます 。 


PC9 8 0 1 シリ ー ズ は 、 グ ラフ ィ ッ ク 画 面 を 2 画面 も っ て いま す 。 (一 部 に 例 
外 あ り ) そこ で 、 こ の 第 二 画 面 を 利用 し て 仮 の 線 を 引き ます 。 し か し 、 裏 の 第 二 画 
面 の み を 見 て いた の で は 、 す で に 描い た 絵 と の 関連 が と れ な い の で 、 第 一 画面 と 第 
二 画 面 と を 交互 に 見 る よう に し ます 。 

また 、 仮 の 線 は 、 表 示し た 後 少し の 時 間 を と っ て すぐ に 消去 し ます 。 

上 記 の 部 分 を 改善 し て 長方形 を 描く プロ グラ ム を 作り まし た 。 プロ グラ ム の 構造 


は 次 の と お り で す 。 
マウ ス の 初期 化 
マウ ス の 表示 








マウ ス の 左 ボ タン を 押し た 
位置 の デー タ を 取得 
左 ボ タン を 離し た ら 次 に 進む 


第 二 画 面 を 使う 
仮 の 長方形 を 描く 時 間 を お く 
仮 の 長方形 を 消す 

第 一 画面 を 使う 

マウ ス の 左 ボ タン を 押し た 
位置 の デー タ を 取得 

左 ボ タン を 離し た ら 次 に 進む 




















向かい の 頂点 の 
位置 の 入力 
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DEFINT A-Z 
ウス 6 **** 長 方 形 を 描く その 1 **** (MOUSE6.BAS) 
*$LINCLUDE: "QB.BT' 

*$INCLUDE: "MOUSE.BT* 


* マ ウス の 初期 化 
* ソ フト ウェ アカ ー ソ ル に する 
* マ ウス の 表示 
VIEW PRINT 23 TO 25 * テ キス ト 画 面 の 範囲 を 設定 
DO 
CLS 2 * テ キス ト 画 面 の 画面 消去 
LOCATE 23, S: PRINT "長方形 の 頂点 を 指示 し て くだ さい 。" 
DO 
MtousePush 0, Y1, 丈 1, Hidari, Migi 
* 左 ボタ ン を 押し た 時 点 の 位置 を 返す 
LOOP UNTIL Hidari *" 左 ボタ ン を 押す まで 繰り 返す 
DO 


MousePoll Y, 文 , Hidari, Migi * 現 在 の マウ ス の 位置 等 を 取得 


LOOP UNTIL NOT Hidan * 左 ボタ ン を 離し て か ら 次 に 進む 
CLS 2 * テ キス ト 画 面 の 画面 消去 
LOCATE 23, 5: PRINT "長方形 の 向い の 頂点 を 指示 し て くだ さい 。" 
DO 
MtousePoll Y3, 双 3, H3, M3 * 現 在 の マウ ス の 位置 等 を 取得 
SCREEN 0, , 1, 1 * 第 二 画 面 を 使う 
LINE ( 文 1, Y1)-( 文 3, Y3), 2, B * 長 方 形 を 描く 
FOR 1 = 1 TO 1000: NEXT * 時 間 を お く 
LINE ( 文 1, Y1)-(3, Y3), 0, B * 長 方 形 を 消す 
SCREEN 0, , 0,0 * 第 一 画面 を 使う 
MtousePush 0, Y2, 文 2, HHidari, Migi 
* 左 ボタ ン を 押し た 時 点 の 位置 を 返す 
LOOP UNTTL Hidari * 左 ボタ ン を 押す まで 繰り 返す 
LINE ( 文 1, Y1)-( 文 2, Y2), 2, B * 長 方 形 を 描く 
DO 
MtousePoll Y。 文 , HHidari, Migi * 現 在 の マウ ゥ ウス の 位置 等 を 取得 
LOOP UNTIL NOT Hidar * 左 ボタ ン を 離し て か ら 次 に 進む 
* 繰 り 返 す 


MouseMode 1 


ソフ トウ ェ ア カ ー ソ ル を 使用 で きま す 。 カ ー ソ ル の 形 が 長方形 な の で 精度 の 高い 
指定 は で き な い の で す が 、 グ ラフ ィ ッ ク 画 面 に 傷 を つけ る こと が な い の で これ を 使 
V ま し だ た 。 
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SCREEN 0, , 0, 0 


第 一 画面 を 使用 する ステ ー ト メン ト で す 。SCREEN 0, , 1.1 な ら 、 第 二 画 面 で す 。 
SCREEN の 書式 は 次 の と お り で す 。 


SCREEN 0, 0, 0, 0 
L、 表示 する ペー ジ (画面 ) の 指定 第 一 画面 :O 第 
書き 込む ペー ジ (画面 ) の 指定 第 一 画面 :0 第 
パレ ッ ト ス イッ チ 
スク リー ン モ ー ド 


LINE (1, Y1)-(X3, Y3), 0, B 


第 二 画 面 の 仮 の 長方形 を 消す た め に 、CLS を 使わ ず 黒 色 の 長方形 を 描い て いま す 。 


FOR 1 = 1 TO 1000: NET 


仮 の 長方形 を 表示 し て お く 〈 く 時間 を 保持 する た め に 、1000 回 数 えた の で す 。 あ まり 
に 速い の で 、 と て も 1000 回 数 えた と は 思え な いく らい で す 。 


さて 、 上 記 の プロ グラ ム で は 、 左 ボタ ン を 上 離し た こと を 確認 し な が ら 進 め て いま 
す が 、 今 度 は 、 線 の 終点 を マウ ゥ ウス の 左 ボ タン を 離し た 時 点 の 位置 に 訂正 し て み ま し 
た 。 こ の 場合 の 操作 法 は 、 次 の よう に な り ま す 。 


1。 左 ボタ ン を 押し て 始点 を 指示 する 。 
2。 左 ボ タン を 押し た まま で マウ ス を 移動 し 、 離 し て 終点 の 位置 を 指示 する 。 


一 部 修正 し た プロ グラ ム は 、 次 の と お り で す 。 





DEFINT A-Z 


計 和 ザ **** 長 方 形 を 描く その 2 **** (MOUSE7.BAS) 
*$INCLUDE: "QB.BI" 
*$INCLUDE: "MOUSE.BI" 


CLS 

MouseInit * マ ウゥ ス の 初期 化 

MouseMode 1 >? ソフトウェア カー ソル に する 
MouseShow * マ ウス の 表示 


VIEW PRINT 23 TO 25 * テ キス ト 画 面 の 範囲 を 設定 
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CTLAS み > テキ スト 画面 の 画面 消去 
LOCATE 23。3: PRINT "長方形 の 頂点 を 指示 し て くだ さい 。" 
DO 


MousePush 0, Y1, 区 1。 Hidari, Migi 
* 左 ボタ ン を 押し た 時 点 の 位置 を 返す 


LOOP UNTIL Hidari * 左 ボタ ン を 押す まで 繰り 返す 
CLS 2 * テ キス ト 画 面 の 画面 消去 
LOCATE 23, 3: PRINT "長方形 の 向い の 頂点 を 指示 し て くだ さい 。" 
DO 

MousePoll Y3, 文 3, H3, M3 * 現 在 の マウ ス の 位置 等 を 取得 

SCREEN 0, , 1, 1 * 第 二 画 面 を 使う 

LINE ( 文 1, Y1)-( 文 3, Y3), 2, B * 長 方 形 を 描く 

FOR 1I = 1 TO 1000: NEXT * 時 間 を お く 

LINE ( 文 1, Y1)-( 文 3, Y3), 0, B * 長 方 形 を 消す 

SCREEN 0, , 0, 0 * 第 一 画面 を 使う 


MouseRelease O, Y2, 文 2, HHidari。 Migi 
> 左 ボ タン を 押し た 時 点 の 位置 を 返す 


LOOP UNTIL NOT Hidari * 左 ボタ ン を 押す まで 繰り 返す 
LINE (1, Y1)-(2, Y2),。 2。B * 長 方 形 を 描く 
LOOP * 繰 り 返 す 





MouseRelease 0, Y2, 丈 2, Hidari。 Migi 


左 ボ タン を 離れ た 時 点 の マウ ス の 位置 等 を 取得 し ます 。 
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8. 3 マウ ス に よる メニ ュー 選択 


線 の 種類 や 色 を 指定 し て 長方形 を 描く プロ グラ ム を 作り ます 。 
線 の 種類 や 色 の 指定 は 、 他 の 図形 を 描く プロ グラ ム で も 使い ます か ら 、 サ ププ ブ プロ 
シー ジャ に し ます 。 プ ログ ラム の 構造 は 、 次 の と お り で す 。 






マウ ゥ ス の 初期 化 
マウ ス の 表示 
メニ ュー の 表示 









マウ ス の 左 ボ タン を 押し た 
位置 の デー タ を 取得 
左 ボ タン を 離し た ら 次 に 進む 


第 二 画面 を 使う 
仮 の 長方形 を 描く 時 間 を お く 


に 












位置 の デー タ を 取得 
左 ボ タン を 離し た ら 次 に 進む 


IDEFINT A-Z 
DECLARE SUB Sensyu (S) 


***\* メ コー ニ ュー 選択 長方形 **** 


"$INCLUDE: "QB.BTY * イ ンク ルー ド フ ァイル の 設定 
"$INCLUDE: "MOUSE.BTY 





* マ ウス の 初期 化 
* ソ フト ウェ アカ ー ソ ル に する 
* マ ウス の 表示 
"メニュー を 表示 
Sensyu S * 線 の 種類 を 選択 する 
Io C * 色 を 選択 する 
CLS 2 * テ キス ト 画 面 を 消去 
LOCATBE 23, 5: PRINT "長方形 の 頂点 を 指示 し て くだ さい 。" 
DO 
MousePush 0, Y1, 文 1, Hidari, Migi * 左 ボタ ン を 押し た 時 点 の 位置 を 返す 


LOOP UNTIL Hidari * 左 タ ン を 押す まで 繰り 返す 
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DO 

MousePoll Y, 文 , HHidari, Migi ぅ 現在 の マウ ゥ ウス の 位置 等 を 取得 
LOOP UNTIL NOT Hidari * 左 ボタ ン を 離し て か ら 次 に 進む 
CLS 2 
LOCATE 23, S: PRINT "長方形 の 向い の 頂点 を 指示 し て くだ さい 。" 
DO 

MousePoll Y3, 双 3, H3, M3 * 現 在 の マウ ス の 位置 等 を 取得 

SCREEN 0,, 1, 1 * 第 二 画面 を 使う 

LINE ( 文 1, Y1)-(X3, Y3), C, B * 長 方 形 を 描く 

FOR 1I = 1 TO 1000: NEXT * 時 間 を お く 

LINE (1, Y1)-(X3, Y3), 0, B * 長 方 形 を 描く 

SCREEN 0, , 0, 0 * 第 一 画面 を 使う 

MousePush 0, Y2, 双 2, HHidari, Migi * 左 ボタ ン を 押し た 時 点 の 位置 を 返す 
LOOP UNTIL Hidari * 左 ボタ ン を 押す まで 繰り 返す 


SELECT CASE S 


CASE0 
LINE ( 文 1, Y1)-(X2, Y2), ご , B * 実 線 で 描く 
CASE 1 
LINE ( 文 1, Y1)-(X2, Y2), ご , B, &HFOFO * 点 線 で 描く 
CASE 2 
LINE ( 玉 1, Y1)-(X2, Y2), ご , B, &HFF99 * 破 線 で 描く 
CASE 3 
LINE ( 誠 1, Y1)-(X2, Y2), , BF * 塗 りつ ぶし て 描く 
END SELECT 
DO 
MousePoll Y, 文 , HHidari。 Migi * 現 在 の マウ ス の 位置 等 取得 
LOOP UNTIL NOT Hidari * 左 ボタ ン を 離し て か ら 次 に 進む 
* 繰 り 返 す 





[メニ ュー を 画面 表示 する サ プ プ ロ シ ー ジ ャ ] 


SUB Menu 

VIEW PRINT 23 TO 25 * テ キス ト 画 面 の 2 3 行 目 か ら 2 5 行 目 まで 使用 する 
LINE (100, 390)-(130, 390), 7 * 実 線 メ ニュ ー の 表示 

LINE (130, 390)-(200, 390), 7。, &HFOFO * 点線 メニ ュー の 表示 

LINE (200, 390)-(250, 390). 7。 , &HFF99 > 破線 メニ ュー の 表示 

LINE (230, 383)-(300, 39$), 7, BF * 塗 りつ ぶし メニ ュー の 表示 

FOR I =0OTO7 


LINE (320 + (I * 30), 38S)-(350 + (IT * 30), 395), IT, BF * 色 メニ ュー の 表示 
INEXT I 
LINE (320, 38S)-(530, 39S), 7, B * 色 メニ ュー の 枠 の 表示 
END SUB * 邊 ププ ロジ シー ジャ を 出る 
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[ 線 の 種類 を 選択 する サ プ プ ブ プロシージャ] 


SUB Sensyu (S) 
CLS 2 * テ キス ト 画 面 (文字 の 画面 ) の 消去 
LOCATE 23, S: PRINT " 線 種 等 を 選択 し て くだ さい 。" 
MouseBorder 383, 100, 399, 300 > マウ ス の 移動 範囲 を メニ ュー 上 に 設定 
DO * 繰 り 返 す 

MousePush 0, Y, 文 , HHidari。 Migi * 左 ボタ ン を 押し た 時 点 の 位置 を 取得 
LOOP UNTIL Hidari * 左 ボタ ン が 押さ れる まで 繰り 返す 
FORS =0 TO3 * 線 の 番号 の 0 から 3 まで 繰り 返す 

IF S>100+S*SOANDS<150+ S* 3S0 THEN 

EXIT FOR FOR …・ 


MousePoll Y, 文 , HHidari, Migi * 現 在 の マウ ゥ ス の 位置 等 を 取得 
LOOP UNTIL NOT Hidari * 左 ボタ ン を 離し て か ら 次 に 進む 
MouseBorder 0, 0, 360, 639 * マ ウス の 移動 範囲 を 描画 画面 上 に 設定 
IMouseLocate 200, 320 * マ ウス を 画面 中 央 へ 移動 
FND SUB * サ ププ ブ プロシージャ の 外 へ 出る 





IF 文 >100+S* SOAND 文 <150+S ギ S0 THEN 


線 の 種類 の 選択 を 判定 する 式 で す 。 各 種類 ご と に 判定 し て も よい の で す が 、 こ の 
式 で プロ グラ ム を 簡潔 に し ます 。 

マウ ス が 押さ れ た 横 方 向 の 位置 (X) が 、100+ 線 番号 *$0 か ら 130+ 線 番号 *$0 の 範囲 
内 に ある こと を 利用 し て 判定 し て いま す 。 


線 の 種類 の メニ ュー の 画面 上 の 横 方 向 の 位置 CX) と 判定 の た め の 式 


P P P P P 
100 150 200 20 300 
100+0*50 100+1*50 100+2*50 100+3*50 
Ne 150r0*20 。 ぐ 1S0rt*50 。 で 00 ぐ 1013*50 


EXIT FOR 


線 の 種類 を 判定 し た 結果 は 、S と な っ て メイ ン へ 渡さ きれ ます 。 
EXIT FOR に よっ て 、NEXTS の 次 ヘ へ ジャ ンプ し て 、 判 定 し て 得 た S の 値 が 変わ ら な 
ゆい よう に し ます 。 
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MouseBorder 385,。100, 399。 300 


マウ ス が 移動 で きる 範囲 の 指定 で す 。 メニュー 選択 時 に は 、 マ ウス を メニ ュー の 
範囲 内 に お く 必 要 が あり ます か ら 、(383,100) か ら (399,300) の 範囲 を 設定 し ます 。 

MouseBorder 0, 0。360, 639 は 、 マ ウス の 移動 範囲 を 、 メ ニュ ー の 範囲 か ら 作画 
の 範囲 へ 改め た も の で す 。 MouseLocate 200, 320 は 、 マ ウス を 表示 する 位置 の 指定 
で す 。 作画 の た め に 画面 の 中 央 に 表示 し ます 。 


メニ ュー に は 、 長 方 形 の 塗り つぶ し の 選択 も 加え て いま す 。 
[ 色 を 選択 する サ プ プ ロ シ ー ジ ャ ] 


SUB Iro (C) 
CLS 2 * テ キス ト 画 面 (文字 の 画面 ) を 消去 
LOCATE 23, S: PRINT " 色 を 選択 し て くだ さい 。" 
MouseBorder 383, 320, 399, 360 * マ ウス の 移動 範 界 を メニ ュー 上 に 設定 
DO * 繰 り 返 す 

MousePush 0, Y, 文 , HHidari, Migi * 左 ボタ ン を 押し た 時 点 の 位置 を 取得 
LOOP UNTIL Hidari * 左 ボタ ン が 押さ れる まで 繰り 返す 
FORC=0 TO7 * 色 番号 0 か ら 7 ま で 繰り 返す 

IF X>320+C* 30 ANDX<350+C* 30 THEN * 範 囲 内 な ら ば 

EXIT FOR FOR・・・NEXT の 外 へ 出る 


MousePoll Y, 区 , HHidari, Migi 
LOOP UNTIL NOT Hidari * 左 ボタ ン を 離し て か ら 次 に 進む 
MouseBorder 0, 0, 360, 639 * マ ウス の 移動 範囲 を 描画 画面 上 に 設定 
IMouseLocate 200, 320 * マ ウス を 画面 中 央 へ 移動 
END SUB * サ ププ ロ シ ー ジ ャ を 出る 


IF 文 >320+C* 30 AND 丸 <350+ で C* 30 THEN 


線 の 種類 を 選択 する 場合 と 同様 に 、 マ ウス の 位置 (X) が 色 の メニ ュー の 中 の い ず 
れ の 位置 に ある か 判定 し ます 。 図示 する と 次 の と お り で す 。 


I 還 天井 測 剖 - 放 本 : 逢 陸上 - 革 本 草本 


PET rio0、 mr0、 gm90、 0 gms0、 5 90 
350+0*30 “350+1*30 “350+2*30 “350+3*30 “350+4*30 “350+5*30 "350+6*30 “350+7*30 
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MtouseInit 
MtouseShow 
MtousehNtode 
MtfousePoll 
MtousePush 
MtouseKRelease 
MtouseBorder 
MouseLocate 
MtouseFHHide 
MouseReady の め 
SetNMtouseEvent 


マウ ス に 関す る ライ ブラ リ は 、 次 の と お り で す 。 


マウ ゥ ス の 初期 化 

カー ソル の 表示 

マウ ゥ ウス の タイ プ の 設定 

マウ ゥ ス の 現在 の 位置 等 の 取得 
ボタ ン を 押し た 時 の 位置 等 の 取得 
ボタ ン を 離し た 時 の 位置 等 の 取得 
マッ ウス の 移動 範囲 の 設定 

マウ ス の 表示 位置 の 設定 

マウ ゥ ス の 非 表示 

マウ ゥ ス が 利用 可能 の 判定 (関数 ) 
割り 込み 条件 の 設定 
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8. 4 析 円 と 関数 の 利用 


次 に 、 椿 円 の 作画 を し ます 。 基 本 的 に は 、 長 方 形 と 同様 の プロ グラ ム で す が 、 円 
弧 の 始点 と 終点 の 角度 を 計算 する 必要 が あり ます 。 そ こ で 、 関 数 の サ プ プ ロ シ ー ジ 
ャ を つく っ て 、 円 弧 の 角度 の 計算 を 行う こと に し ます 。 

な お 、 円 は 権 円 の ルー チン を 使う こと と し て 、 円 を 描く プロ グラ ム は 、 省 略し ま 

プロ グラ ム の 構造 は 、 次 の と お り で す 。 











マウ ス の 初期 化 
マウ スモ ー ド の 設定 | 
マウ ス の 表示 

メニ ュー の 表示 


半径 の 長 さと 長 半径 と 短 半 径 の 比 の 計算 
円 弧 の 始点 の 角度 の 入力 

円 紋 の 終点 の 角度 の 入力 

椿 円 を 描く 





DEFINT A-Z 
DECLARE FUNCTION Enko! (X1, Y1, XXX, YY) 
DECLARE SUB Sensyu ($) 
DECLARE SUB Iro ( 〇 ) 
DECLARE SUB Menu () 
* マ ウス 9 ** ネ **】 育 円 *** ネ (MOUSE9.BAS) 
*$INCLUDE: OB.BT* *ー イ ンク ルー ド フ ァイル の 設定 
*$INCLUDE: "MOUSE.BI' 
CLS 
MtouseInit *ー マ ウス の 初期 化 
MtouseMtode 1 *ー ン ソン ソフトウェア カーソル に する 
MouseShow >ー マ ウス の 表示 
Menu ** デ メニ ュー 画面 を 表示 
DO 
Io C * 一 色 の 選択 
CLS 2 * デ テキ スト 画面 の 消去 
LOCATE 23, S: PRINT "円 の 中 心 を 指示 し て くだ さい 。" 
DO 


MousePush 0, Y1, 区 1, Hidari, Migi 
* 一 左 ボ タン を 押し た 時 点 の 位置 を 返す 
LOOP UNTIL Hidari * 王 左 ボ タン を 押す まで 繰り 返す 
DO 
MousePoll Y, 文 , Fiidari, Migi "一 マウ ス の 現在 の 位置 等 を 取得 
LOOP UNTTL NOT Hidari * 王 左 ボ タン を 離し て か ら 次 に 進む 
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CH.S 2 *=ー テ キス ト 画 面 の 消去 
LOCATE 23, 5: PRINT "円 の 半径 を 指示 し て くだ さい 。 " 
DO 
MousePoll Y3, 双 3, H3. M3 "現在 の マウ ゥ ス の 位置 等 を 取得 
SCREEN 0, , 1, 1 * 一 第 二 画 面 の 使用 
IF 文 3 <> 文 1 THEN *} 仮 の 円 を 描く 
CIRCLE (1, Y1), SQR(X1 - 双 3) ^2+(Y1 - Y3) ^ 2), 
ぐ 前 行 続き > で , , , ABS((Y1 - Y3) / ( 文 1 - 文 3)) 
FOR I = 1 TO 1000: NEXT "一 時 間 を お いて } 仮 の 円 を 消す 
CIRCLE (XX1, Y1), SQR((X1 - 3) へ 2 + (Y1 - Y3) ^ 2), 
ぐ 前 行 続き > 0, , , ABS((Y1 - Y3) / ( 文 1 - 文 3)) 
END 
SCREEN 0, , 0, 0 "一 第 一 画面 の 使用 
MousePush 0, Y2, 文 2, HHidari, Migi 
* 王 左 ボ タン を 押し た 時 点 の 位置 を 返す 


LOOP UNTTIL Hidari * 一 左 ボ タン を 押す まで 繰り 返す 
R = SOR(( 文 1 - 文 2) へ 2+ (Y1 - や 2) へ ②) *ー 半 径 の 計算 
IE 文 1 <> 文 2 THEN *< 分 母 が が で な けれ ば 


Hi! = ABS((Y1 - Y2) / ( 文 1 - 2)) "一 長径 と 短 径 の 比 の 計算 
ELSE 


Fi! = 1000 * < 分 母 が 0 な ら ば 比 は 1000 と する 
END 中 
DO 

MousePoll Y, 文 , Hidari, Migi "一 マウ ス の 現在 時 点 の 位置 等 を 取得 
LOOP UNTIL NOT Hidari * 一 左 ボ タン を 離し て か ら 次 に 進む 
CE 2 * デ テキ スト 画面 の 消去 


LOCATE 23, S: PRINT " 円 弧 の 始点 を 指示 し て くだ さい 。" 
DO 
MousePoll Y3, 文 3, H3, MI3 一 マウ ス の 現在 の 位置 等 を 取得 
SCREEN 0, , 1, 1 * 一 第 二 画 面 の 使用 
IF X3 <> X1 THEN 
CIRCLE ( ズ 1, Y1), R, C, Enko!(X1, Y1, 双 3, Y3), , Hi! 
* 一 仮 の 円 弧 を 描く 
FOR 1 = 1 TO 1000: NEXT * 一 表示 する 時 間 を お く 
CIRCLE ( ズ ズ 1, Y1), R, 0, Enko!( ズ 1, Y1, 3, Y3), , Hi! 
* 一 仮 の 円 弧 を 消す 
END IF 
SCREEN 0, , 0, 0 * 第 一 画面 の 使用 
MousePush 0, Y2, 2, Hidari, Migi 
* 一 左 ボ タン を 押し た 時 点 の 位置 を 返す 


LOOP UNTTIL Hidari * 王 左 ボ タン を 押す まで 繰り 返す 
ST! = Enko!( 文 1, 1, 文 2, や 2) * 一 円 弧 の 始点 の 計算 
DO 

MousePoll Y, 文 , HHidari、Mtigi マウ ス の 現在 の 位置 等 を 取得 
LOOP UNTIL NOT Hidari * 王 左 ボ タン を 離し て か ら 次 に 進む 
CLS 2 
LOCATE 23, S: PRINT " 円 紋 の 終点 を 指示 し て くだ さい 。" 
DO 


MousePoll Y3, 文 3。 H3, M3 *ー マ ウス の 現在 の 位置 等 を 取得 
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SCREEN 0。。 1, 1 * 一 策 二 画面 を 使う 
IF X3 <> X1 THEN 
CIRCLE (XX1, Y1), R, ご , ST!, Enko!(X1, Y1, XX3, Y3), Hi! 


"て 仮 の 円 弧 を 描く 

FOR I = 1 TO1000: NEX エ "一 時 間 を お く 

CIRCLE ( 文 1, Y1), R, 0, ST!。 Enko!(X1, Y1, XX3, Y3), Hi! 
"一 仮 の 円 を 消す 


END IF 
SCREEN 0, , 0, 0 
MousePush 0, Y2, XX2, Hidari, Migi 一 左 ボ タン を 押し た 時 点 の 位置 を 返す 


LOOP UNTIL Hidari * 王 左 ボ タン を 押す まで 繰り 返す 
EN! = Enko!(X1, Y1, 2。 Y2) *ー 円 弧 の 終点 の 計算 
DO 
MousePoll Y, 文 , HHidari。 Mtigi >ー マ ウス の 現在 の 位置 等 を 取得 
LOOP UNTIL NOT HHidari > 一 左 ボ タン を 離し て か ら 次 に 進む 
IF ST! = EN! THEN * 一 始点 と 終点 が 一 致し た 場合 は 
ST! = O: EN! = 3.141593 * 1.9999999# "<-0 か ら 2r まで と し て 柄 円 を 描く 
END TE 
CIRCLE (1, Y1), R, C, ST!。EN!,Hi! "一 本 円 ・ 円 弧 を 描く 
DO 
MousePoll Y, 文 , Hidari, Migi *ー マ ウス の 現在 の 位置 等 を 取得 
LOOP UNTIL NOT HHidari * 一 左 ボ タン を 離し て か ら 次 に 進む 
LOOP > 一 繰り 返す 
END 





Enko!(x1, Y1, 文 3, Y3) は 、 円 弧 の 始点 と 終点 の 角度 を 計算 する 関数 を 使っ て いる 
癌 も る 補 す 。 

角度 の 単位 は ラジ アン で すか ら 、Enko! は 浮動 小数 点 型 の 関数 で す 。 全 部 の 円 弧 
を 描く 場合 は 、0 か ら 2x ま で で す が 、 こ れ で は CIRCLE が 動か な いよ うな の で 、0 か ら 
1.9999999# ァ と し て 描く よう に し て あり ます 。 


[円 弧 の 始点 と 終点 を 計算 する サブ ププ ブ プロシージャ ] 





FUNCTION Enko! (区 1, Y1, 丈 , や) 


IF XX <> 双 1 AND 又 1 < XX AND Y1 > YY THEN ぇ 一 策 1 象限 の 場合 
Enko! = ATN((Y1 - YY) / (XX - 文 1)): EXIT FUNCTION 

END ITF 

IF YY > Y1 AND XX1 > XX AND Y1 > YY THEN * 一 第 2 象限 の 場合 


Enko! = ATN(CX1 - XX) / (Y1 - YY)) + (3.141393 / 2): EXIT FUNCTION 

END IF 

IF XX < XX1 AND X1 > XX AND Y1 < YY THEN * 一 第 3 象限 の 場合 
Enko! = ATN((YY - Y1) / (XX1 - 双 )) + 3.141393: EXIT FUNCTION 

END 正 

IF YY < Y1 AND X1 < XX AND Y1 < YY THEN * 一 第 4 象限 の 場合 
Enko! = ATN((XX - XX1) / (YY - Y1)) + 3.141593 * 1.S: EXIT FUNCTION 

END TE 
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IF XX=XX1 AND Y1 > YY THEN *<-90 度 の 場合 
Enko! = 3.141393 / 2: EXIT FUNCTION 

END 

IF XX=X1 AND Y1 < YY THEN *<-270 度 の 場合 
Enko! = 3.141593 * 1.S: EXIT FUNCTION 

END TEF 

IF YY = Y1 AND X1 > XX THEN *-180 度 の 場合 
Enko! = 3.1413S93: EXIT FUNCTION 

END IF 

IF YY= Y1 ANDX1 <XX THEN *<-0 度 の 場合 

Enko! = O: EXIT FUNCTION 
END 中 
END FUNCTION 





円 弧 の 始点 と 終点 の 角度 の 計算 は 、 各 象限 ご と に タン ジェ ント (TAN) の 逆 関 数 の 
ATN (アー クタ ンジ ェ ン ト ) を 使い ます 。0,90,180,270 度 の 場合 は 、 計 算式 の 分 母 が 
0 に な っ て ATN で は 計算 で な い の で 、 別 に し まし た 。 

次 の 図 の よう に 計算 し て いま す 。 






XX 人 YY レー プー 


ATN(X1-XX)(Y1-YY)+x/2 ニン NL ボ 
SW 
JMf マ 


XX.YY 


XX.YY 
ATN((Y1-YY)/(XX-X1)) 





に 
人 ATN((XX-X1)/(YY-Y1) オ z*1.5 






ATN((YY-Y1)/(X1-XX))+ ァ 


[ 色 を 選択 する サブ プロ シー ジャ ] 


SUB IrOo ( 〇 ) 
(前 節 と 同じ な の で 、 省 略し ます 。) 
END SUB 





[ 色 の 選択 の メニ ュー を 表示 する サブ ププ ロ シ ー ジ ャ ] 


SUB Mtenu 
VIEW PRINT 23 TO 2 
FOR I =0TO7 


LINE (320 + (IT キ 30), 38S)-(3S0 + (I * 30), 39S), 1,BF 
NEXT 1 

LINE (320, 38S)-($530, 39$5), 7 B 

END SUB 
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8. 5 お 絵描き ソフ ト の まとめ 


いよ いよ 、 お 絵描き ソフ ト に まとめ ます 。 
この プロ グラ ム の 構造 の 概要 は 次 の と お り で す 。 


7 な ら ば 





(1) メイ ンプ ロ シ ー ジ ャ 
左 ボ タン と 右 ボ タン を 同時 に 押せ ば 終了 で きる よう に し まし た 。 
その た め に 、 メ イン プロ シー ジャ の 最後 に 終了 の た め の サ ブ プルー チン を 用 意 
し レ し 、 さ ら に 、 こ の サブ プ ル ー チ ン へ 跳 記 た め の 割 込 処理 を 設定 し て いま す 。 





DEFINT A-Z 

DECLARE SUB SensyuMenu () 
DECLARE SUB Oresen () 
DECLARE SUB Daen () 
DECLARE SUB IroNuri () 
DECLARE SUB Tyouhoukei () 
DECLARE SUB TenRenzoku () 
DECLARE SUB Tyokusen () 
DECLARE SUB ZukeiMenu () 
DECLARE SUB Ten () 

DECLARE SUB IroMenu () 
DECLARE SUB ZukeiSentaku () 
DECLARE FUNCTION Enko! (区 1, Y1, 叉 , YY) 


DECLARE SUB Sensyu (⑤) 

DECLARE SUB Iro (ご ) 

> ウス 1 0 **** 。 お 描き ****※ (MOUSE10.BAS) 
*$INCLUDE: "OB.BI”* *ー イ ンク ルー ド フ ァイル の 設定 


*$INCLUDE: "MOUSE.BT 
ON UEVENT GOSUB Syuuryou * 一 終了 の た め に 割り 込み 処理 を する 設定 
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CLS * デ 画面 消去 
COLOR 9・ LOCATE 35, 20: PRINT 旧来 玉 玉 来 玉 玉 素 玉 玉 玉 来 玉 玉 玉 玉 玉 玉 玉 玉 本 玉 玉 * 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 り 
COLOR 11: LOCATE 6, 20: PRINT 旧 玉 来 来 来 素 玉 玉 玉 玉 涼 玉 玉 玉 氷 玉 玉 床 玉 玉 杯 玉 杯 床 床 氷 玉 り 
COLOR 10: LOCATE 7, 20: PRINT 上 素 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 氷 玉 玉 本 キ 杯 本 本 床 床 床 本 玉 玉 り 
COLOR $: LOCATE 8, 20: PRINT 旧来 玉 玉 玉 来 来 玉 玉 玉 玉 素 玉 玉 玉 玉 玉 玉 末 玉 本 杯 玉水 本 本 玉 
COLOR 7: LOCATE 9, 20: PRINT " お 絵かき ソフ ト 
COLOR $: LOCATE 10, 20・ PRINT 旧来 玉 玉 来 来 来 来 氷 氷 玉 氷 玉 氷 玉 玉 玉 玉森 玉林 本 末 杯 氷 下 本 氷 氷 本 本 
COLOR 14: LOCATE 11, 20:PRINT 上 玉 玉 玉 玉 玉 玉 玉 玉 氷 末 氷 氷 床 床 下 下 床 床 床 床 床 床 玉 玉 上 
COLOR 13: LOCATE 12, 20:PRINT 旧来 玉 玉 来 玉 率 玉 玉 玉 素 玉 玉 玉 呈 玉 玉水 玉 涼 本 玉 玉 玉 玉 本 玉 玉 玉 玉 玉 玉 玉 
COLOR 12: LOCATE 13, 20:PRINT 旧 玉 玉 玉 来 来 来 玉 来 玉 玉 来 玉 氷 玉 来 玉 玉 氷 玉 本 玉 玉 玉 玉 本 玉 玉 玉 玉 玉 玉 玉 玉 玉 り 
COLOR 6: LOCATE 17, 20:PRINT "マウ ス の 左 ボ タン を 押す と スタ ー ト し ます 。" 
COLOR $5: LOCATE 19, 20:PRINT "マウ ス の 右 ボ タン を 押す と 図形 を 選択 で きま す 。 " 
COLOR 4: LOCATE 21, 20:PRINT "マウ ス の 左右 の ボタ ン を 同時 に 押す と 終了 し ます 。" 
DO 
MousePoll Y。 文 , Hidari, Migi "< 現在 時 点 の マウ ゥ ス の 位置 の 取得 


LOOP UNTIL Hidari * 王 左 ボ タン を 押せ ば 次 へ 
DO 
MousePoll Y, 文 , Hidari, Migi * 現 在 時 点 の マウ ス の 位置 の 取得 
LOOP UNTIL NOT Hidari * 王 左 ボ タン を 上 離せ ば 次 へ 
CLS 
MtouseInit *ー マ ウス の 初期 化 
SetMtouseEvent 8 * 一 割り 込み 処理 の 条件 の 設定 
MtouseMtode 1 *ー マ ウス の 種類 の 設定 
MtouseShow > ュー マウ ス の 表示 
DO 
アン ukeiMtenu * 図形 の 選択 メニ ュー の 表示 
ZukeiSentaku * 図形 の 選択 と 作画 
LOOP 
END 
SyuuryOu: * 王 終了 処理 の た め の サ プル ー チ ン 


MousePush 0, Y, 駐 , Hidari, Migi 
"て 左 ボ タン を 押し た 時 点 の 位置 等 を 取得 


IF Hidari THEN * 王 左 ボ タン が 押さ れ て いる ば 
CLS 2 * 画面 消去 し て 
LINE (70, 383)-($60, 399), 0, BF "一 メニ ュー を 消去 し て 
MtouseHide > 一 マウ ス を 消し て 
UEVENT OFF * 一 割り 込み 処理 を OFF 
SetMtouseEyvent 0 * 割 り 込 み 処 理 の 条件 設定 を 消去 
END * 一 終了 

END IF 

RETURN 





ON UEVENT GOSUB Syuuryou は 、 終 了 の た め の 割 込 処理 を 定義 し て いま す 。 Syuuryou 
は 、 メ イン プロ シー ジャ の 後に お いて 、 割 込 が あっ た ら 、Syuuryou に ある 仕事 を し 
ます 。 こ の 場合 は 終了 の 条件 が 合え ば 、 そ の まま 終了 し ます が 、 条 件 が 合わ な い 場 
合 は 、RETURN か ら 、 割 り 込 み し た 位置 へ 戻る こと に な り ま す 。 

SetMtouseEvent 8 は 、Mouse に よる 割 込 を する た め の 条 件 を 設定 し ます 。 後ろ の 8 
が 条件 を 表し て いま す 。 
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条件 は 次 に より 設定 で きま す 。 
ビッ ト 位 置 4 3 2 1 


0 
Lelolololo| 


1 な ら ば 、 カ ー ソ ル 位 置 の 変化 で 割り 込み 
1 な ら ば 、 左 ボタ ン ON で 割り 込み 
1 な ら ば 、 左 ボタ ン OFF で 割り 込み 
1 な ら ば 、 右 ボタ ン ON で 割り 込み 
1 な ら ば 、 右 ボタ ン OFF で 割り 込み 


この 場合 は 、 右 ボタ ン ON で 割り 込み 処理 を 行う の で 、 次 の よう に し ます 。 
ビッ トト 位置 4 3 2 1 0 


Lelilelele | 


2 進数 の 01000 は 、 1 0 進数 で は 8 な の で 、SetMouseEvent 8 と し た の で す 。 


還 


Quick Basic で は この よう な 割 込 処理 を イベ ント トラ ッ ピ ング と いっ 
て ゆい ます 。 
ON UEVENT GOSUB ・・・・・ は 、 ユ ー ザ ー 定 義 の イベ ント トラ ッ ピ ング で 、 使 用 者 が 定 
義 し て 利用 する も の で す 。 
イベ ント トラ ッ ピ ング に は 次 の よう な ステ ー ト メン ト が あり ます 。 
ON COM( シ リア ルポ ー ト 番号 ) GOSUB ・・ 通 信 で 文字 を 受信 し た と き の 割 り 込み 
ON KEY( 番 号 ) GOSUB ・‥・ キー を 押し た と き の 割 り 込み 
番号 ・1-10 は ファ ンク ショ ン キ ー の 1 一 10 
11 は 上 矢印 キー 12 は 左 矢印 キー 
13 は 右 矢印 キー 14 は 下 矢印 キー 
30 は STOP キ ー 31 は HELP キ ー 
15-25 は ユー ザー 定義 
ON PLAY( 維 持 す る 音符 の 最小 値 )GOSUB・‥‥ オ ル ゴ ー ル を 続け て 鳴ら す た め に 音 
符 を 読み 込む た め の 割 り 込 み 
ON TIME( 秒 数 ) GOSUB・‥・ 時 間 を 経過 し た と き の 割 り 込み 
な お 、 上 記 は 、 機 能 の 設定 の み で 、 実 際 に 働か す に は 、COM(n) ON, KEY(n) ON, 
PLAY ON, TIMER ON を 必要 と し ます 。 


MouseHide は 、 マ ウス の 表示 を 消し ます 。 

UEVENT OFF は 、 割 込 処理 を OFF に し て 、 働 か な いよ うに し ます 。 割 込 処理 の O 
N は 、UEVENT ON で 行い 、 こ れ は 図形 を 選択 する サブ プ プ ロ シ ー ジ ャ に あり ます 。 
SetMouseEvent 0 は 、 マ ウス の 割り 込み の 条件 設定 を 消去 し ます 。 終了 する 前 に 
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は 、 し っ か り と 後 始末 を と する 必要 が あり ます 


(2 ) 図形 選択 の メニ ュー を 表示 する サブ ププ ロ シ ー ジ ャ 


SUB ZukeiMtenu > 図形 選択 の た め の メ ニュ ー 表 示 
CLS 2 * 王 文字 の 画面 を 消去 
LINE (70, 383)-($S60, 399), 0, B *ー メ ニュー を 消去 
COLOR 7: LOCATE 23, $: PRINT "図形 を 選択 し て くだ さい 。 " 
FOR 1 = 1 TO7 "デー メニ ュー の 枠 表示 
LINE (O+ * 70), 383)-(70 + (1 * 70), 399), 7, B 
NEXT I 
FOR 1 = 1 TO 20 
=RND*70+ 70: マ = ニ RND* 1S+383 "一点 の メニ ュー 
PSET ( 文 , Y), 2 
NEXT I 
FOR R! =0 TO2* 3.141393 STEP .1 * 一 点 の 連続 の メニ ュー 
駐 ! =145+R!*10 
Y! = 391 + SINCR!) * 6 *ーS IN カー ブ 
PSET (XX!, Y)), 2 
NEXT RI 
LINE (2153, 391)-(27S, 391), 2 *ー 直 線 の メニ ュー 
LINE (283, 397)-(30S, 3835), 2 * 王 折線 の メニ ュー 
LINE -(323, 397), 2 
LINE -(343, 38$S), 2 
LINE (333, 386)-(413, 396), 2, B * 且 長方形 の メニ ュー 
CIRCLE (4S5, 391), 23, 2, , , .3 * 琴 円 の メニ ュー 
LINE (493S, 386)-(SS3, 396), 2, B * 一 色 塗 の メニ ュー 
CIRCLE ($23, 391), 18, 2, , , .33 
PAINT (496, 387), 4, 2 * 一 色 塗 
PAINT (S23, 391), 3, 2 
PAINT ($34, 39$), 6, 2 
END SUB 





( 3 ) 図形 を 選択 する サブ プロシージャ 





SUB ZukeiSentaku * 且 図形 を 選択 する サ プ プ ロ シ ー ジ ャ 
UEVENT ON * 一 割り 込み を ON 
MouseBorder 383, 70, 399, S60 *ー マ ウス の 移動 範囲 設定 
DO 


MtousePush 0, Y, 区 , Hidari, Migi 
"て 左 ボ タン を 押し た 時 点 の マウ ス の 位置 等 の 取得 


LOOP UNTIL Hidari * 王 左 ボ タン を 押す と 次 へ 進む 
DO 

MousePoll YY, 文 駐 , Hidari, Migi "マウ ス の 現在 時 点 の 位置 等 を 取得 
LOOP UNTIL NOT Hidari * 王 左 ボ タン を 離す と 次 へ 進む 
FOR Z=1TO7 


IF メッ > クン *70 AND< ク *70+70THEN "一 選択 を 判定 する 
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EXIT FOR *= 選 択 さ きれ た ら NEXT FOR の 外 へ 出る 


END IF 

NEXTZ 

MouseBorder 0, 0, 370, 639 * 一 マウ ス の 移動 範囲 を 設定 

LINE (70, 383)-($60, 399), 0. BF "一 メニ ュー を 消去 

UEVENT OFF * 一 割り 込み を OFF 

SELECT CASE 用 *ー 選 択 に より 
CASE 1: Ten *ー1 な ら ば 点 
CASE 2: TenRenzoku *ー2 な ら ば 点 の 連続 
CASE 3: Tyokusen *-3 な ら ば 直線 
CASE 4: Oresen *-4 な ら ば 折線 
CASE S: Tyouhoukei *ー5 な ら ば 長方形 
CASE 6: Daen ><-6 な ら ば 椿 円 
CASE 7: IroNuri *-7 な ら ば 色 沙 

END SELECT 

END SUB 





( 4 ) 色 の 選択 メニ ュー の 表示 及び 色 を 選択 する サ プ プ ロ シ ー ジ ャ 


[ 色 を 選択 する サ プ プ ロ シ ー ジ ャ ] 


SUB IroMenu 

VIEW PRINT 23 TO 23 

CLS 2 

FORI =OTO7 * 一 色 の メニ ュー 表示 
LINE (320 + (IT * 30), 38S)-(350 + (TI * 30), 395), T, BF 

NEXT I 

LINE (320, 38S)-($530, 39$), 7, B * ュ ーー メニ ュー の 枠 の 表示 

END SUB 





[ 色 を 選択 する サブ プロ シー ジャ ] 





SUB Iro ( 〇 ) 
LOCATE 23, $: PRINT " 色 を 選択 し て くだ さい 。" 
MouseBorder 38S, 320, 399, S60 "マウ ス の 移動 範囲 を メニ ュー 上 に 設定 
DO * 一 繰り 返す 
MousePush 0, Y, 文 , HHidari, Migi 


* 一 左 ボ タン を 押し た 時 点 の 位置 を 取得 


LOOP UNTL Hidari * 王 左 ボ タン が 押さ れる まで 繰り 返す 
FORC=0TO7 * 一 色 番 号 0 か ら 7 ま で 繰り 返す 
IF X>320+C* 30 ANDX<350+C*30THEN "一 範囲 内 な ら ば 
EXIT FOR *-for・・・next の 外 へ 出る 
END IF 
NEXTC 
DO 


MousePoll Y, 文 , Fiidari。 Migi "一 マウ ス の 現在 時 点 の 位置 等 を 取得 
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LOOP UNTIL NOT Hidari * 一 左 ボ タン を 離し て か ら 次 に 進む 


MouseBorder 0。 0, 360, 639 *ー マ ウス の 移動 範囲 を 描画 画面 上 に 設定 
MouseLocate 200, 320 *ー マ ウス を 画面 中 央 へ 移動 

CLS 2 * 一 文字 画面 を 消去 

LINE (320, 383)-(S60, 39$), 0, BFF "一 色 の メニ ュー を 消去 

END SUB 





(5 ) 線 の 選択 メニ ュー の 表示 及び 線 を 選択 する サブ ププ ロ シ ー ジ ャ 


[ 線 の 種類 の メニ ュー 表示 の サブ ププ ロ シ ー ジ ャ ] 


SUB SensyuMNtenu 
VIEW PRINT 23 TO 25 "一 テキ スト 画面 の 2 3 行 目 か ら 2 5 行 目 まで 使用 する 
LINE (100, 390)-(130, 390), 7 * 一 実線 メニ ュー の 表示 


LINE (1S0, 390)-(200, 390), 7。 , 和 HFOFO "一 点線 メニ ュー の 表示 
LINE (200, 390)-(230, 390), 7。, 系 HFF99 "一 破線 メニ ュー の 表示 
LINE 230, 383)-(300, 39$), 7, B 互 > 一 染 り つぶ し レ し メニ ュー の 表示 
END SUB 





[ 線 の 種類 を 選択 する サブ プ プ ブ プロシージャ ] 

















SUB Sensyu (⑤S) 
CLS 2 *ー テ キス ト 画 面 (文字 の 画面 ) の 消去 
LOCATE 23, S: PRINT " 線 種 等 を 選択 し て くだ さい 。" 
MouseBorder 38S, 100, 399, 300 "一 マウ ス の 移動 男 胃 を メニ ュー 上 に 設定 
DO * 一 繰り 返す 
MousePush 0, Y, 文 , Hidari。 Migi 
* 王 左 ボ タン を 押し た 時 点 の 位置 を 取得 


LOOP UNTIL Hidari * 一 左 ボ タン が 押さ れる まで 繰り 返す 
FORS=OTO3 > 一 線 の 番号 の 0 から 3 ま で 繰り 返す 

IF X>100+S* SO0ANDX<150+S*S0OTHEN "一 範囲 内 な ら ば 

EXIT FOR *ーFOR ‥NEXT の 外 へ 出る 

END IF 
NEXTS 
DO 

MousePoll Y, 文 , Hidari, Migi *ー マ ウス の 現在 位置 等 の 取得 
LOOP UNTIL NOT Hidari * 一 左 ボ タン を 離し て か ら 次 に 進む 
MouseBorder 0, 0, 360, 639 *ー マ ウゥ ス の 移動 範囲 を 描画 画面 上 に 設定 
MouseLocate 200, 320 * 一 マウ ス を 画面 中 央 へ 移動 
CLS 2 * 王 文字 の 消去 
LINE (100, 38$)-(300, 39$), 0, BE *ー メ ニュ ー の 消去 


END SUB 
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( 6 ) 点 を 吹き 付け て 描く サブ プ プ ロ シ ー ジ ャ 


SUB Ten * 一 点 を 吹き 付け る サブ プロ シー ジャ 
IroMtenu * 有 一 色 を 選択 する メニ ュー の 画面 表示 
Iro C * 一 色 の 選択 
RANDOMIZE TINMTER *ー 各 数 系 列 の 設定 
DO 
DO 
MousePush O,。Y, 文 , HHidari、 Migi 
* 王 左 ボ タン を 押し た 時 点 の マウ ス の 位置 等 を 取得 
IF Migi THEN * 一 右 ボ タン を 押す と 
EXIT SUB *ー サ ププ ロ シ ー ジ ャ を 出る 


END IF 
LOOP UNTIL Fiidari * 一 左 ボ タン を 押す と 次 へ 


DO 
MousePoll YY, XX, Fidari, Mtigi "一 マウ ス の 現在 位置 等 の 取得 
LOOP UNTIL NOT Hidari * 王 左 ボ タン を 離す と 次 へ 
FOR I =1 TO 20 *ー2 0 個 の 点 を 表示 
Q! =RND* 2 * 3.141393 * 一 角度 
R! = 20 * RND *ー 半 径 
XT!=COS(Q)* RI+ 文 *ー 双 座標 
YT! = SIN(OD*R!+Y *ーY 座 標 
PSET ( 文 T!, Y エ ), ご > 一 点 の 表示 
NEXT I 
LOOP 
END SUB 





1 個 の 点 を 描く の で は な く 、 点 を 吹き 付け る よう に し まし た 。 こ こ で は 、 2 0 個 の 
点 を 表示 する よう に し まし た 。 

Q! = RND * 2 * 3.141593 は 、 乱 数 で 角度 を 決め ます 。 角度 Q! の 単位 は ラジ アン な 
の で 、360 度 は 2 メ ァ な の で 、 こ れ に 乱数 を 乗じ ます 。 乱数 は 、0<RND<1 な の で 、0 
度 か ら 3 6 0 度 ま で の 間 の さま ざま の 角度 を 得る こと が で きま す 。 

R! =20* RND は 、0 か ら 2 0 まで の 範囲 で 半径 を 決め ます 。 こ れ で 、 半 径 2 0 の 
円 内 に 点 を 均等 に 吹き 付け る こと が で きま す 。 婦 T! = COS(Q!) * R!+ 文 及び YT!= 
SIN(Q)* R!+Y は 、 画 面 上 の 座標 位置 を 計算 し て いま す 。 


(7) 連続 し た 点 を 描く サ プ プ ロ シ ー ジ ャ 





SUB TenRenzoku * 還 続 し た 点 を 表示 する サブ プロ シー ジャ 
IroMtenu *- 色 を 選択 する メニ ュー の 表示 

Iro C * 一 色 を 選択 する 

DO 

DO 


MousePoll Y, 文 , HHidari, Migi マウス の 左 ボ タン が 押さ れ た 位置 を 取得 
IF Migi THIEN * 一 右 ボ タン を 押す と 
EXIT SUB *ー サ ププ ロ シ ー ジ ャ を 出る 
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END IF 
LOOP UNTIL Hidari * 一 左 ボ タン が 押さ れる まで 繰り 返す 
PSET ( 文 , Y), ご * 一 点 を 描く 





(8 ) 直線 を 描く サブ プロシージャ 



























SUB Tyokusen *<- 直 線 を 表示 する サブ プロ シー ジャ 
SensyuMtenu * 一 線 の 種類 の メニ ュー を 表示 する 
Sensyu S * 一 線 の 種類 を 選択 する 
IroMenu * 一 色 の メニ ュー を 表示 する 
Iro C * 一 色 を 選択 する 
DO 
CLS 2 * 一 テキ スト 画面 の 画面 消去 
LOCATE 23, S: PRINT "直線 の 始点 を 指示 し て くだ さい 。" 
DO 
MousePush 0, Y1, 1, Hidari, Migi "一 左 ボ タン を 押し た 時 点 の 位置 を 返す 
IF Migi THEN * 一 右 ボ タン を 押す と 
EXIT SUB *ー サ ブ プ ロ シ ー ジ ャ を 出る 
END IF 
LOOP UNTIL Hidari * 一 左 ボ タン を 押す まで 繰り 返す 
DO 
MousePoll Y, , Hidari, Migi 一 マウ ス の 位置 等 を 取得 する 
LOOP UNTIL NOT Hidari * 王 左 ボ タン を 離し て か ら 次 に 進む 
CLS 2 * デ 一 テキ スト 画面 の 画面 消去 
LOCATE 23, $: PRINT "直線 の 終点 を 指示 し て くだ さい 。" 
DO 
MousePoll Y3, XX3, H3, M3 *- マ ウス の 位置 等 を 取得 する 
SCREEN 0, , 1, 1 * 一 征 二 画面 を 使う 
LINE (1, Y1)-(XX3, Y3), ご * 一 直線 を 描く 
FOR I = 1 TO 1000: NE 誠 "一 時 間 を お く 
LINE ( 玉 1, Y1)-(X3, Y3), O * 一 直線 を 消す 
SCREEN 0, , 0, 0 * 一 第 一 画面 を 使う 
MousePush 0, Y2, 2, HHidari,Mtigi "一 左 ボ タン を 押し た 時 点 の 位置 を 返す 
LOOP UNTIL Hidari * 一 左 ボ タン を 押す まで 繰り 返す 
SELECT CASE $ 
CASE 0: LINE (1, Y1)-(X2, Y2), ご * 一 直線 を 実線 で 描く 


CASE 1: LINE (X1, Y1)-(X2, Y2), ご , , &HFOFO * 一 直線 を 点線 で 描く 
CASE 2: LINE (1, Y1)-(X2, Y2), ご , , 必 HFF99 * 一 直線 を 破線 で 描く 


CASE 3: LINE ( 文 1, Y1)-(X2, Y2), ご * 一 直線 を 実線 で 描く 
END SELECT 
DO 

MousePoll Y, 文 , HHidari, Migi 一 マウ ス の 位置 等 を 取得 する 
LOOP UNTIL NOT Hidari * 一 左 ボ タン を 離し て か ら 次 に 進む 
LOOP * 一 繰り 返す 


END SUB 
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(9 ) 折れ 線 を 描く サブ プロ シー ジャ 







































SUB Oresen * 連 続 折れ 線 を 描く サブ ププ ロ シ ー ジ ャ 


SensyuMenu * 一 線 の 種類 を 選択 する メニ ュー 表示 
Sensyu S * 一 線 の 種類 を 選択 する 

IroMtenu * 一 色 を 選択 する メニ ュー 表示 

mo ご * 一 色 を 選択 する 

CLS 2 *ー テ キス ト 画 面 の 画面 消去 

LOCATE 23, 5: PRINT "折線 の 始点 を 指示 し て くだ さい 。" 

DO 


MousePush 0, Y1, 双 1, Hidari, Migi "一 左 ボ タン を 押し た 時 点 の 位置 を 返す 


IF Migi THEN * 一 右 ボ タン を 押す と 
EXIT SUB >ー サ ププ プロシージャ を 出る 
END ITF 
LOOP UNTIL Hidari * 王 左 ボ タン を 押す まで 繰り 返す 


DO 
MousePoll Y, 文 , Hidari, Migi "一 マウ ス の 現在 時 点 の 位置 等 を 取得 
LOOP UNTIL NOT Hidari * 一 左 ボ タン を 離し て か ら 次 に 進む 
DO 
CLS 2 *ー テ キス ト 画 面 の 画面 消去 
LOCATE 23, S: PRINT "折線 の 終点 を 指示 し て くだ さい 。" 
DO 
MousePoll Y3, XX3, H3。 Mt3 一 マウ ス の 現在 時 点 の 位置 等 を 取得 
SCREEN 0, , 1, 1 * 一 第 二 画 面 を 使う 
LINE (XX1, Y1)-(X3, Y3),C "一 長方形 を 描く 
FOR I = 1 TO1000: NEXT "一 時 間 を お く 
LINE ( 文 1, Y1)-(X3,Y3).0 "一 長方形 を 消す 
SCREEN 0, , 0, O * 一 第 一 画面 を 使う 
MousePush 0, Y2, XX2, Hidari, Migi ' 一 左 ボ タン を 押し た 時 点 の 位置 を 返す 
IF Migi THEN * 一 右 ボ タン を 押す と 
EXIT SUB *ー サ ププ ロ シ ー ジ ャ を 出る 
END IF 
LOOP UNTIL Hidari * 王 左 ボ タン を 押す まで 繰り 返す 
SELECT CASE S 
CASE 0: LINE ( 文 1, Y1)-(X2, Y2), ご * 一 実線 を 描く 
CASE 1: LINE (1, Y1)-(X2, Y2), ご , , 数 HFOFO "一 点線 を 描く 
CASE 2: LINE (XX1, Y1)-(X2, Y2), ご , , 系 HFF99 "一 破線 を 描く 
CASE 3: LINE ( 文 1, Y1)-(X2, Y2), ご * 一 実線 を 描く 
END SELECT 
DO 
MousePoll Y, 文 , HHidari, Migi "一 マウ ス の 現在 時 点 の 位置 等 を 取得 
LOOP UNTIL NOT Hidari * 王 左 ボ タン を 離し て か ら 次 に 進む 
文 1 = 双 2: Y1 = ニ マス * 一 直線 の 終点 を 次 の 直線 の 始点 と する 
LOOP * 一 繰り 返す 


END SUB 
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(1 0) 長方形 を 描く サブ ププ ロ シ ー ジ ャ 





SUB Tyouhoukei 長方形 の サブ プロシージャ 






















SensyuMtenu * 一 線 種 を 選択 する メニ ュー 表示 
Sensyu S * 一 線 種 を 選択 する 
IroMtenu * 一 色 を 選択 する メニ ュー 表示 
Iro C * 一 色 を 選択 する 
DO 
CLS 2 * 一 テキ スト 画面 を 消去 
LOCATE 23, $: PRINT "長方形 の 頂点 を 指示 し て くだ さい 。" 
DO 
MousePush 0, Y1, 双 1, FHidari, Mtigi "一 左 ボ タン を 押し た 時 点 の 位置 を 返す 
IF Migi THEN * 一 右 ボ タン を 押す と 
EXIT SUB *ー サ ププ ロ シ ー ジ ャ を 出る 
END IF 
LOOP UNTIL Hidari * 一 左 ボ タン を 押す まで 繰り 返す 
DO 
MousePoll Y, 文 , Fiidari, Mtfigi "一 現在 の マウ ゥ ウス の 位置 等 を 取得 
LOOP UNTIL NOT Hidari * 王 左 ボ タン を 離し て か ら 次 に 進む 
CLS 2 
LOCATE 23, S: PRINT "長方形 の 向い の 頂点 を 指示 し て くだ さい 。" 
DO 
MousePoll Y3, 3, H3, M3 * 一 現在 の マウ ゥ ス の 位置 等 を 取得 
SCREEN 0,。, 1。 1 * 一 第 二 画面 を 使う 
LINE (XX1, Y1)-(X3, Y3), C, B * 長 方 形 を 描く 
FOR 1 = 1 TO 1000: NEXXT * 一 時 間 を お く 
LINE ( 文 1, Y1)-(X3, Y3), 0, B * 王 長方形 を 描く 
SCREEN 0, , 0, 0 * 一 第 一 画面 を 使う 
MousePush 0, Y2, XX2, Fidari, Mtigi "一 左 ボ タン を 押し た 時 点 の 位置 を 返す 
LOOP UNTIL Hidari * 一 左 ボ タン を 押す まで 繰り 返す 
SELECT CASE $ 
CASE O: LINE ( 文 1, Y1)-( 文 2, Y2), ご , * 一 実線 で 描く 


CASE 1: LINE ( 文 1, Y1)-(XX2, Y2), ご , B, 称 HFOFO 一 点線 で 描く 
CASE 2: LINE ( 文 1, Y1)-( ズ 2, Y2), C, B, 必 HFF99 "一 破線 で 描く 





CASE 3: LINE ( 文 1, Y1)-( 文 2, Y2), ご , B * 一 塗り つぶ し て 描く 
END SELECT 
DO 
MousePoll Y, 文 , HHidari, Mtigi "一 現在 の マウ ス の 位置 等 を 取得 
LOOP UNTIL NOT Hidari * 一 左 ボ タン を 離し て か ら 次 に 進む 
LOOP * 一 繰り 返す 
END SUB 






( 1 1 ) 柄 息 を 描く サザ ププ ロ シ ー ジ ャ 





SUB Daen > 一 椿 円 の サブ プロ シー ジャ 
IroMenu * 一 色 の 選択 メニ ュー 
Iro C * 一 色 の 選択 
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CLS 2 *ー テ キス ト 画 面 の 消去 
LOCATE 23, 3: PRINT " 椿 円 の 中 心 を 指示 し て くだ さい 。" 
DO 
MousePush 0. Y1, 駐 1, EHidari, Migi "一 左 ボ タン を 押し た 時 点 の 位置 を 返す 
IF Migi THEN * 一 右 ボ タン を 押す と 
EXIT SUB *ー サ ププ ロ シ ー ジ ャ を 出る 
END IF 
LOOP UNTIL Hidari * 一 左 ボ タン を 押す まで 繰り 返す 
DO 
MousePoll Y。 文 , HHidari, Mtigi "一 マウ ス の 現在 の 位置 等 を 取得 
LOOP UNTIL NOT HHidari * 一 左 ボ タン を 離し て か ら 次 に 進む 
CLS 2 *ー テ キス ト 画 面 の 消去 
LOCATE 23, 3: PRINT " 椿 円 の 半径 を 指示 し て くだ さい 。" 
DO 
MousePoll Y3, 又 3, H3.M3 "一 現在 の マウ ス の 位置 等 を 取得 
SCREEN 0, , 1, 1 * 一 第 二 画面 の 使用 
IE XX3 <> 1 THEN *! 仮 の 椿 円 を 描く 
CIRCLE (1, Y1), SQR(CX1 - X3) へ 2 +(Y1 - Y3) ^ 2), 
ぐ ご 前 行 続き > C, 。 。ABS((Y1 - Y3) / (X1 - XX3)) 
FOR I = 1 TO1000: NEXT "一 時 間 を お いて ! 仮 の 椿 円 を 消す 
CIRCLE ( 文 1, Y1), SOR(X1 - X3) へ 2 +(Y1 - Y3) ^ 2), 
ぐ 前 行 続き > 0, , , ABS((Y1 - Y3) / (XX1 - XX3)) 
END IF 
SCREEN 0, , 0, 0 * 一 第 一 画面 の 使用 
MousePush 0, Y2, XX2, rfidari, Migi "一 左 ボ タン を 押し た 時 点 の 位置 を 返す 
LOOP UNTIL Hidari * 一 左 ボ タン を 押す まで 繰り 返す 


R = SOR(X1 - X2) へ 2+(Y1 - Y2) へ 2) "一 半径 の 計算 
TF XX1 <> XX2 THEN 


Fi! = ABS((Y1 - Y2) / (1 - 文 2)) * 一 長径 と 短 径 の 比 の 計算 
ELSE 

Fi! = 1000 * 分 母 (X1-X2) が 0 の 場合 は 比 は 1000 と する 
END IF 
DO 

MousePoll Y, 文 , Fiidari, Migi 

* 一 マウ ス の 現在 時 点 の 位置 等 を 取得 

LOOP UNTIL NOT Fidari * 一 左 ボ タン を 離し て か ら 次 に 進む 
CLS 2 *ー テ キス ト 画 面 の 消去 
LOCATE 23, $: PRINT " 円 弧 の 始点 を 指示 し て くだ さい 。" 
DO 

MousePoll Y3, 駐 3, H3, MI3 *ー マ ウス の 現在 の 位置 等 を 取得 

SCREEN 0, , 1, 1 * 一 第 二 画 面 の 使用 

ITF 又 3 <> 文 1 THEN 

CIRCLE ( 文 1, Y1), R, , Enko!(X1, Y1, 3, Y3), , Hil 
* 一 仮 の 円 弧 を 描く 


FOR 1 = 1 TO1000: NEXT "一 表示 する 時 間 を お く 
CIRCLE (XX1, Y1), R, 0, Enko!(X1, Y1, 3, Y3), , Hi! 

* 有 一 仮 の 円 弧 を 消す 
END IF 
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SCREEN 0, , 0, 0 "一 第 一 画面 の 使用 
MousePush 0, Y2, 2, Fidari。 Migi 
* 左 ボタ ン を 押し た 時 点 の 位置 を 返す 


LOOP UNTIL Hidari * 王 左 ボ タン を 押す まで 繰り 返す 
ST! = Enko!CX1, Y1, XX2, や 2) * 円 弧 の 始点 の 計算 
DO 
MousePoll Y, 文 , HHidari。 Migi "一 マウ ス の 現在 の 位置 等 を 取得 
LOOP UNTIL NOT Hidari * 王 左 ボ タン を 離し て か ら 次 に 進む 
CLS 2 
LOCATE 23, S: PRINT " 円 弧 の 終点 を 指示 し て くだ さい 。" 
DO 
MousePoll Y3, 双 3, H3, At3 一 マウ ス の 現在 の 位置 等 を 取得 
SCREEN 0,。, 1, 1 * 一 第 二 画面 を 使う 
IF X3 <> XX1 THEN 
CIRCLE ( 文 1, Y1), R, で , ST!, Enko!(X1, Y1, 双 3, Y3), Hi! 
> 一 仮 の 円 弧 を 描く 
FOR I = 1 TO 1000: NE * 一 時 間 を お く 
CIRCLE ( 文 1, Y1), R, 0, ST!, Enko!(X1, Y1, 又 3, Y3), Hi! 
* 一 仮 の 円 弧 を 消す 
END IF 


SCREEN 0, , 0, 0 
MousePush 0, Y2, 駐 2, HHidari, Migi * 王 左 ボ タン を 押し た 時 点 の 位置 を 返す 


LOOP UNTIL Hidari * 王 左 ボ タン を 押す まで 繰り 返す 
EN! = Enko!(X1, Y1, 双 2, や) *ー 円 弧 の 終点 の 計算 
DO 

MousePoll Y, 文 , Hiidari。 Mfigi "一 マウ ス の 現在 の 位置 等 を 取得 
LOOP UNTIL NOT Hidari * 王 左 ボ タン を 離し て か ら 次 に 進む 


IF ST! = EN! THEN 
ST!I = 0: EN! = 3.141593 * 1.0999999# 
* 一 すべて の 円 弧 を 描く 場合 の 角度 
END IF 
CIRCLE ( 文 1, Y1), 尺 , C, ST!, ENI,Hi! "一 円 ・ 棒 円 ・ 円 弧 を 描く 
DO 
MousePoll Y, 文 , HHidari, Migi 一 マウ ス の 現在 の 位置 等 を 取得 


LOOP UNTIL NOT Fidari * 王 左 ボ タン を 離し て か ら 次 に 進む 
LOOP * 一 繰り 返す 
END SUB 





(1 2 ) 円 弧 の 始点 と 終点 を 計算 する 関数 の サ プ プ ロ シ ー ジ ャ 





FUNCTION Enko! ( ズ 1, Y1, XX, YY) 
* 一 円 弧 の 始点 と 終点 を 計算 する 関数 の サブ ププ ロ シ ー ジ ャ 


TF XX<> X1 ANDX1 < XX AND Y1 > YY THEN * 一 第 1 象限 の 場合 
Enko! = ATN((Y1 - YY) / (XX - 文 1)): EXIT FUNCTION 

ENDIF 

TF YY <> Y1 ANDXX1 > XX AND Y1 > YY THEN * 一 第 2 象限 の 場合 


Enko! = ATN((X1 - 双 XX) / (Y1 - YY)) + (3.1413593 / 2): EXIT FUNCTION 
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ENDIF 
TF XX <> 又 1 AND 双 1 > XX AND Y1 < YY THEN * 一 第 3 象限 の 場合 
Enko! = ATN((YY - Y1) / (XX1 - XX)) + 3.141593: EXIT FUNCTION 


END IF 
TEF YY <> Y1 AND 又 1 < XX AND Y1 < YY THEN *ー 第 4 象限 の 場合 


Enko! = ATN((XX - XX1) / (YY - Y1)) + 3.141593 * 1.S5: EXIT FUNCTION 
ENDIF 


ITF XX = X1 AND Y1 > YY THEN *<-90 度 の 場合 
Enko! = 3.141393 / 2: EXIT FUNCTION 

ENDIF 

ITF XX = X1 AND Y1 < YY THIEN *<-270 度 の 場合 
Enko! = 3.141593 * 1.S: EXIT FUNCTION 

END IF 

ITF YY= Y1 AND X1 > XX THIEN *-180 度 の 場合 
Enko! = 3.141593: EXIT FUNCTION 

END IF 

ITF YY = Y1 AND X1 < XX THEN *<-O 度 の 場合 
Enko! = O: EXIT FUNCTION 

ENDIF 

END FUNCTION 





( 1 3 ) 色 を 塗る サブ プ プ ロ シ ー ジ ャ 





SUB IroNuri * 一 色 を 塗る サブ プロ シー ジャ 
IroMtenu * 一 色 を 選択 する メニ ュー 表示 
LOCATE 23, 40: PRINT " (塗る 色 の 指定 ) ": 
Iro C1 * 一 沙 る 色 の 選択 
IroMtenu > 一 色 を 選択 する メニ ュー 表示 
LOCATE 23, 40: PRINT" (境界 色 の 指定 ) ": 
Iro C2 * 一 境界 色 の 選択 
DO 
DO 


MousePush 0O, YY, 文 , HHidari。 Migi 
* 一 左 ボ タン を 押し た 時 点 の マウ ゥ ス の 位置 等 を 取得 


IF Migi THEN * 一 右 を 押せ ば 
EXIT SUB *ー サ ププ ロ シ ー ジ ャ を 出る 

END IF 
LOOP UNTIL Hidari * 一 左 ボ タン を 押せ ば 次 へ 
DO 

MousePoll YY, XX, Hidari, Migi "マウス の 現在 時 点 の 位置 等 を 取得 
LOOP UNTIL NOT Hidari * 一 左 ボ タン を 離す と 次 へ 
PAINT ( 文 , や ), C1, ご 2 * 一 色 を 塗る 

LOOP 





END SUB 
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第 章 

35E : 

通信 ソフ ト 
SE 
パソ コン 通信 の 基礎 知識 と 通信 ソフ ト の プ 
ログ ラミ ング を 学び ます 。 








9. 1 パソ コン 通信 の 準備 


パソ コン 通信 を 始め る に は 、 パ ソコ ン の 外 に モデ ム と いう 機器 を 用 意 す る 必要 が あ 
り ま す 。 モ デム は 、 電話機 と パソ コン の 間 の 、 仲 介 役 の 機器 で す 。 な に し ろ 、 パ ソコ 
ン は パソ コン 語 を 電話 は 電話 語 を 、 そ れ ぞ れ の 都合 で 話 を する の で 、 モ デム は 、 双 方 
の 言葉 の 翻訳 や 交通 整理 を する 重要 な 仕事 を し ます 。 

か つて は 、 モ デム は た い へ ん 高価 な 機器 で し た が 、 今 で は 、 高 性 能 で な お か つ 価 格 
も 買い や すい よう に な っ た の で 、 思 い 切 っ て 買わ れ た らい か が で し ょ うか 。 


モデ ム と パソ コン に 結線 し て 使用 する まで の 手順 は 次 の と お り で す 。 
( 1 ) 電話 を モジ ュ ラ ー ジ ャ ッ ク で 接続 で きる よう に する 。 (電話 工事 業者 に 依頼 
する 。) 





脱着 で きる よう に する 


(2 ) 電話 回 線 と モデ ム の LINE を 接続 し 、 電 話 機 と モデ ム の TEL を 接続 する 。 
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(3) モデ ム と パソ コン の RS232C イ ンタ フェ ー ス と を 接続 する 。 







( 4 ) パソ コン 及び モデ ム の 電源 コー ド を 接続 し て 、 電 源 を ON に する 。 


な お 、 モ デム の 使用 に 際 し て 、 モ デム の ディ ッ プ スイ ッ チ を セッ ト す る 必要 が あり 
ます が 、 出 荷 時 の まま で 使え る 場合 が 多い よう で す 。 モ デム の マニ ュ ア ル で 確認 し て 
くだ さい 。 


モデ ム を 使う た め に は 、 モ デム に 命令 を 送る 必要 が あり ます 。 こ の 命令 が 、 モ デム 
の メー カー ご と に 違っ て いて は 不便 な の で 、 一 般 に AT コマ ンド と いう 方 式 を 使っ て 
お り ま す 。 AT コマ ンド 方 式 は 米国 で も っ と も ゃ 普及 し た コマ ンド 体系 を な の で 、 日 本 の 
メー カー も これ を 採用 し た よう で す 。 


パソ コン で ダイ ヤル し て 、 パ ソコ ン 通 信 の ホス ト 局 の 電話 に 接続 する 手順 は 次 の と 
お り で す 。 

(1 ) R S 2 3 2C の 通信 ポー ト を ラン ダム アク セス ファ イル と し て オー プン する 。 
OPEN "COM1 :1200,N,8,1,CDO,DS0" FOR RANDOM AS #1 LEN = 256 


ll レコ ー ド の 長 さ が 
2 5 6 バイ ト 
ファ イル 番号 が #1 
ラン ダム アク セス ファ イル 
回 線上 の タイ ム ア ウ ト の チェ ッ ク を し な い 


スト ッ プ ビッ ト の 長 さ (1 か 2 --> デー タ の 区 切り の 
デー タ の ビッ ト の 長き た め の ビ ッ ト 数 ) 
パリ ティ イチ ェ ッ ク の 種類 (な し -->N 偶数 パリ ティ -->E 
奇数 パリ ティ -->0) 
通信 速度 (1 秒間 に 送る ビッ ト 数 、300,1200,2400) 
通信 ポー ト の ファ イル 名 (COMI、COM2) 
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(2 ) モデ ム を 初期 化す る 。 
ATZ を モデ ム に 送る 。 PRINT #1."ATZ" 
する と 、 モ デム か ら OK と いう 返事 が 返っ て くる 。 

(3 ) ダイ ヤル する 。 
例え ば パソ コン 通信 の ホス ト 局 の 電話 番号 012-34S-6789 

自分 の 電話 が パル ス ダ イ ヤル 式 の 電話 

ATDP012-345-6780 を モデ ム に 送る 。 
PRINT #1."ATDPO12-345-6789" (トー ンダ イル "ATDTO12-34S-6789") 
する と ダイ ヤル を 開始 し 、 接 続 す る と 、CONNECT と 返事 が 返っ て くる 。 


基本 的 な 通信 プロ グラ ム は 、 次 の と お り で す 。 こ の プロ グラ ム は 、 ま だ 不 完全 で 
す が 、 小 さい プロ グラ ム な の で 、 概 略 を 知る に は 格好 で す 。 

ロー カル の パソ コン 通信 の ホス ト 局 で MNP ( 後 で 解説 し ます 。) を 使っ て いな い 
場合 は 、 こ の 程度 で も 接続 で きま す 。 し か し 、PC 一 VAN や NIFTY Serv 
e の 場合 は 、 し っ か り プ ログ ラム を つく ら な いと 接続 で き な い よう で す 。 





DEFINT A- 
* 通 信 1 **** 再 信 ソ フト の 基本 **** (TUUSIN1.BAS) 
CLS * デ 画面 消去 

LOCATE 1。1, 1, 14, 1S *ー カ ー ソ ル を 表示 する 


OPEN "COM1 :1200,N,8,1,CDO,DS0" FOR RANDOM AS #1 LEN = 236 
*<- 通 信 回 線 の ファ イル を 開く 


PRINT #1。 "AT エ プ " *ー モ デム の 初期 化 
MM$ = "" 
DO 
TEF LOC(1) THIEN *= 通 信 の ファ イル に 入力 待ち の 文字 が ある な ら ば 
MS$ = INPUTY(LOC(1), #1) * 一 文字 数 分 を 読む 
PRINT Mt$: * 一 画面 へ 表示 する 
MM$ = MM$+ Mt$ * 一 文字 を 累積 する 
END IF 
LOOP UNTL INSTR(MM$, "OK") *=-OK な ら ば 次 へ 
FOR 1 = 1 TO 10000: NE 双 T * 一 時間 を お く 
PRINT #1, "ATDPO12-343-6789" * 一 電話 番号 を ダイ ヤル する 
MM$ = "" 
DO 
TF LOC(1) THEN * 一 下 信 の ファ イル に 入力 待ち の 文字 が ある な ら ば 
MS$ = INPUTY(LOC(1), #1) * 一 文字 数 分 を 読む 
PRINT Mt$: * 一 画面 へ 表示 する 
MM$ = MM$ + MS * 一 文字 を 累積 する 
END IF 
LOOP UNTIL INSTR(MM$, "CONNECT") *<-CONNECT な ら ば 次 へ 
DO 
K$ = INKEY$ *ー1 文字 入力 
IF K$ <> "" THEN * 一 文字 が 入力 され て いれ ば 


PRINT #1。K$S: * 一 送信 する 
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END 下 E 


TE LOC(1) THHEN *ー 入 力 待 ちの 文字 が ある な ら ば 
MS$ = INPUT\(LOC(1), #1) * 一 文字 数 分 を 読む 
PRINT Mt$: * 一 画面 へ 表示 
END IF 
LOOP 


END 





LOC(1) に よっ て 、 フ ァイル 番号 1 の バッ ファ ー に 存在 する 文字 の 数 を 取得 で きる の 
で 、IF LOC1) THEN は 、 通 信 ポ ー ト に 文字 が 受信 し て あれ ば ・・ と いう こと に な り 
ます 。 

M$ = INPUT\(LOC(1),#1) に よっ て 、 フ ァイル 番号 1 バッ ファ ー に 存在 する 文字 の 数 
の 分 だ け 、M$ に 移動 し ます 。= は 、 こ こ で け は 、 複 写 で は な < く 移 動 な の で 、 読 み 取れ 
ば 消え る よう に な っ て いま す 。 

MM$ = MM$ + M$ で 、 通 信 ポ ー ト か ら 得 た 文字 を 蓄積 し て お いて 、OK や CONNECT の 返 
事 が くる か どう か を 判定 し ます 。 
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9. 2 AT コマ ンド と 送受 信 


前 節 で は 、AT コ マン ド の 使用 を 最小 限 に し まし た が 、 確 実に モデ ム を 作動 きせ る 
た め に は 多数 の コマ ンド を 送る 必要 が あり ます 。 そこで 必要 と する コマ ンド を 次 に ま 
と め ま し た 。 


( 1 ) モデ ム を 初期 化す る 。 
PRINT #1."ATZ" 
(2 ) 電話 の 方 式 を 設定 する 。 
トー ンダ イヤ ル 方 式 の 場合 PRINT 紅 "ATT" 
パル ス ダ イ ヤル 方 式 の 場合 
1 秒間 に 1 0 パルス の 場合 PRINT#1."ATP1" (普通 は これ を 使い ます 。) 
1 秒間 に 2 0 パル ス の 場合 PRINT #1."ATP2" 
(3 ) 通信 規格 を 設定 する 。 


CC ITT イ 規格 の 場合 PRINT#1."ATBO" (普通 は これ を 使い ます 。) 
BELL 規 格 の 場合 PRINT #1."ATB1" 
(4 ) 接続 し た 時 に 通信 速度 の 表示 を する 。 
PRINT #1."ATX4" (普通 は これ を 使い ます 。) 
(5) MNP 接 続 及び MNP ク ラス を 表示 する 。 
表示 し な い 場 合 PRINT #1."ATYVO" 
表示 する 場合 PRINT #1."ATYV2" 
(6 ) MNP の 接続 を 設定 する 。 
接続 し な い 場 合 PRINT #1."ATYNO" 
接続 する 場合 PRINT #1."ATYN3" 
(7) ダイ ヤル する 。 
PRINT #1,"ATD0123-43-6789" (普通 は これ を 使い ます 。) 
(8) 回 線 を 切る 。 


PRINT #1."ATH" 
(9) オン ライ ン モ ー ド か ら コ マン ドモ ー ド へ 切り 禁 える 。 
1 分 間 な に も し な い 時 間 が 経過 し た 後 、PRINT #1."AT+++": 


プロ グラ ム の 構造 の 概要 は 次 ペー ジ の と お り で す 。 
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画面 消去 カー ソル 表示 
通信 回 線 の ファ イル を 開く 
モデ ム の 初期 化 二 の E CC1TT 赴 格 設定 
通信 速度 の 表示 設定 

回 線 が 話 中 な ら ば BUSY を 送る 。 

接続 で きれ ば CONNECT を 送る 。 












1 文字 入力 し て 送信 する 。 
受信 の サ プ プ ロ シ ー ジ ャ 
文字 を 累積 し て 

NO CARRIER が 返っ て きた ら 終 了 











入力 待ち の 文字 が 回 線 パ バッ ファ ー に あれ ば 
1 バイ ト 読 む 

読ん だ コー ド が 制御 コー ド で な けれ ば 画面 へ 表示 
コー ド が 改行 コー ド な ら ば 画面 上 で 改行 

読ん だ 文字 を 累積 する 。 
累積 し た 文字 が BUSY 

累積 デー タ が 確認 データ に 一 致す れ ば 戻る 。 













入力 待ち の 文字 が あれ ば 1 バイ ト を 読 ひ 
読ん だ 1 パイ ト が 文字 コー ド (&H 2 0 以上 ) で あれ ば 
漠 字 コー ド の 1 バイ ト 目 で あれ ば 、 

も う 2 バイ ト 目 を 読ん で 1 バイ ト 目 と 連結 する 
文字 を 画面 表示 する 。 

コー ド が 改行 な ら ば 、 画 面 上 で 改行 する 。 

コー ド が バッ クス ペー ス な ら ば 画面 上 で バッ クス ペー ス す る 。 









(1 ) メイ アゲ プロ シー ジャ 


DEFINT A-Z 

DECLARE SUB BackSpace () 

DECLARE SUB Setuzoku (KakuninData$) 

DECLARE SUB SouZyusin () 

DECLARE SUB yusin (M$) 

DECLARE SUB AtSousin (SousinData$, KakuninData$) 


> 通信  ****k AT コマ ンド と 送受 信 **** (TUUSIN2.BAS) 

Setuzoku KakuninData$ * 一 接続 する 

IF KakuninData$ = "CONNECT" THIEN *ーCONNECT と 返っ て きだ たら 
SouZyusin * 一 送受 信 を 開始 

END IF 


END 
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(2 ) 接続 の サブ プロ シー ジャ 


SUB Setuzoku (KakuninData$) *ー 接 続 の サブ プ プ ロ シ ー ジ ャ 
CLS * 一 画面 消去 
LOCATE 1, 1, 1, 14, 1S *ー カ ー ソ ル を 表示 する 
FILEMEI$ = "COM1:1200,N,8,1.CDO,DS0" 
OPEN FILEMEI$ FOR RANDOM AS #1 LEN=2S6 "一 通信 回 線 の ファ イル を 開く 
Kaigyou$ = CHRS( 用 HHD) * 王 改行 
LincFeed$ = CHR$(&HA) *ー ラ イン フィ ー ド 
OK$ = "OK" + Kaigyou$ + LineFeed$ *ー-OK$ の 設定 
AtSousin "ATZ", OK$ *ー モ デム の 初期 化 
AtSousin "ATP1", OK$ * 一 自分 の 電話 の 方 式 
AtSousin "ATBO", OK$ *ーCC IT イイ 規格 
AtSousin "ATX4", OK$ * 一 接続 後 の 通信 速度 の 表示 
Mnp$ = "O" *-1 に する と MNP 接 続 0 に する と 非 接続 
SELECT CASE Mnp$ 
CASE "0": AtSousin "ATYVO", OK$ *ーMNP 接 続 し な い 
AtSousin "ATYNO",OK$ 
CASE "1": AtSousin "ATYV2", OK$ *-MNP 接 続 する 
AtSousin "ATYN3", OK$ 
END SELECT 
KakuninData$ = "CONNECT" 
AtSousin "ATD0123-45-6789", KakuninData$ "一 セン ター の 電話 を ダイ ヤル する 
IF KakuninData$ = "BUSY" THEN * 一 話 中 の と き は 
CLOSE *ー フ ァイル を 閉じ て 
PRINT" 話 中 で す 。 何 か キ ー を 押し て くだ さい 。" 
DO: LOOP UNTIL INKEY$ <> "" * 一 何 か キ ー を 押し た ら 
EXIT SUB * 一 は じ め に 戻る 
END IF 
AtSousin ""。Kaigyou$ + LineFeed$ * 一 改行 と ライ ン フ ー ド の 確認 
KakuninData$ = "CONNECT" "一 確認 デー タ を 返す た め CONNECT を セッ ト 
END SUB 





AT コマ ンド を モデ ム に 送る と 、OK、CONNECT、BUSY な どの メッ セー ジ が 返っ て き 
ます 。 

さら に 、 こ れ ら に 続い て 、OD0A が 送ら れ て きま す 。 

0D は 、 カ ー ソ ル を 左端 に 移動 する 制御 コー ド で 、 復 帰 と いい 、0A は 、 カ ー ソ ル を 次 
の 行 に 移動 する 制御 コー ド で ライ ン フ ィ ー ド と いい ます 。 

実は 、PRINT CHR$(&HD): と する と 、NS88BASIC で は 、 同 じ 行 で 復帰 だ け 行う の で す が 、 
Quick BASIC で は 、 次 の 行 に 改行 する の で 、0D を ここ で は 改行 と 表現 し て いま す 。 そ 
こ で 、Quick BASIC で 、 送 られ て くる 0DO0A を 、PRINT CHR$(&HD): : PRINT CHRS(&HA): 
と する と 2 度 の 改行 を する こと に な り ま す 。 

ATD (電話 番号 ) で ダイ ヤル し て 、 話 中 の 場合 は BUSY が 、 接 続 で きれ ば CONNECT が 返 
っ て きま す 。 こ れ を メイ ンプ ブ プロシージャ へ 返す と 、 メ イン は これ を 判断 し て CONNECT 
の 場合 だ け 送 受信 を 開始 し ます 。 
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(3) A エ コマ ンド を 送信 する サブ ププ ロ シ ー ジ ャ 



















SUB AtSousin (SousinData$, KakuninData$) "一 送信 の サブ プロ シー ジャ 


IF SousinData$ <> "" THEN * 一 送信 デー タ が あれ ば 
PRINT #1, SousinData$ * 一 送信 する 
END IF 
MM$ = "" 
DO 
ITF LOC(1) THEN *ー 入 力 待ち の 文字 が ある な ら ば 
M$ = INPUT$(1, #1) *ー ] バイ ト を 読む 
SELECT CASE M$ 
CASE IS >= CHR$(&H20) "一 コー ド が 1 6 進数 20 以 上 の 場合 は 
PRINT M$: * 一 画面 表示 する 
CASE CHRS$(13) *ー コ ー ド が 改行 な ら ば 
PRINT > 画面 上 で 改行 する 
END SELECT 
MM$ = MM$+ MS * 一 文字 を 累積 する 
END IF 
IF INSTR(MM$, "BUSY") THEN * 一 話 中 な ら ば 
KakuninData$ = "BUSY" * 一 確認 デー タ に BUSY を 複写 し て 
EXIT SUB *ー サ ププ ロ シ ー ジ ャ を 出る 
END IF 
LOOP UNTIL INSTR(MM$, KakuninData$) 一 累積 し た 文字 の 中 に 確認 する 文字 びあ れ ば 
FOR 1 = 1 TO 10000: NEXT 1 * 一 時 間 を お く 


END SUB ーー ザ サ プ プロ シー ジャ を 軸 る 





PRINT #1, SousinData$s で A エ コマ ンド を モデ ム へ 送り ます 。 モ デム か ら 返 っ て く 
る 文字 は 、IF LOC(1) THEN で 判断 し て 回 線 の バッ ファ ー か ら 、M$ = INPUT$(1, #1) 
で 1 バイ ト 分 読み 込み ます 。 文字 の コー ド は 、&H20 ( 1 6 進数 で 20) 以上 な の で 、M$ 
が 1 6 進数 02 以 上 な ら ば 、 文 字 を 画面 へ 表示 し 、0D な ら ば 改行 する よう に し ます 。 

受信 し た 文字 は 、MM$ へ 累積 し て 、"OK" や "CONNECT" な ど 確 認 す る 文字 が 返っ て くる 
まで 繰り 返し 、 確 認 で きた だ たらこ の サ プ プ ロ シ ー ジ ャ を 出 ま す 。 

また 、 話 中 の た め 、"BUSY" が 返っ て きだ ら 、 こ れ を 返し ます 。 


(4 ) 送受 信 す る サブ プロ シー ジャ 





SUB Souyusin * 一 送受 信 の サブ プロ シー ジャ 
DO 
K$ = INKEYS *ー 1 文字 入力 
TF K$ <> "" THEN * 一 も し ゃ 入力 され れ ば 
PRINT #1。 KS: * 一 送信 する 
END IF 
Zyusin Mt$ *ー 革 人 層 の サ デ ププ ロ シ ー ジ ャ 
TF MS$ = CHRS$(&HD) THHEN *ーM$ が 改行 コー ド な ら ば 


MM$ = "" "MM% を クリ ア 
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ELSE > そう で な けれ ば 


MIM$ = MM$S + MS$ "MM% へ M$ を 昌 積 
END 
LOOP UNTIL INSTR(MM$, "NO CARRIER") "一 MMW% に NO CARRIER が あれ ば 、 
CLOSE * ュ ーー ファ イル を 閉じ て 出る 
END SUB 





送信 デー タ は 、K$ =INKEY$ で 1 文字 入力 し 、PRINT #1, K$: で 送信 し ます 。 こ の 
時 、 入 力 し て 送信 し た 文字 を 画面 に は 表示 し な い の で す が 、 送 信 デ ー タ は 直ちに セン 
ター か ら 返 され て くる の で 、 こ れ を 受信 し て 表示 し ます 。 受信 の 仕事 は 、 受 信 の サブ 
プロ シー ジャ が 担当 し ます 。 

受信 し た デー タ は 、 受 信 の サブ ププ ロ シ ー ジ ャ か ら M$ と し て 返さ れ て くる の で 、 こ れ 
を 案 積 し て 、NOCARRIER (回 線 切 断 ) を 判断 し て 終了 と し ます 。 


(5 ) 受信 の サブ プロ シー ジャ 


SUB Zyusin (M$) "受信 の サ プ プ ブ プロシージャ 
MS$ = " 
IF LOC(1) THIEN *ー 入 力 待ち の 文字 が ある な ら ば 
Mt$ = INPUT$(1, #1) *ー 1] バイ ト を 読む 
SELECT CASE M$ 
CASE IS >= CHR$(&H20) "一 コー ド が 1 6 進数 20 以 上 の 場合 は 
IF (M$ >= CHR$(&H80) AND MS <= CHRS$(&H9F)) OR 
(M$ >= CHR $(&HE0) AND M$ <= CHR$(&HEF)) THEN 
Kanji$ = MS 
* 和漢 字 コ ー ド の 1 バイ ト 目 な ら ば ーー 1 バイ ト 目 を 保存 し 
M$ = INPUT$(1, #1) "一 2 バイ ト 目 を 読み 取っ て 
M$ = Kanji$ + MS *ー1 バイ ト 目 と 2 バイ ト 目 を 連結 する 
END IF 
PRINT MS: *ー デ ー タ を 画面 表示 する 
CASE CHRS(13) *ー コ ー ド が 改行 な ら ば 
PRINT * 画面 上 で 改行 する 
CASE CHRSC8) *ー バ ックス ペー ス な ら ば 
BackSpace *ー バ ックス ペー ス の 手続 き 
END SELECT 
END 正 
END SUB 





IF LOC(1) THEN で 入力 待ち の 文字 が 回 線 の バッ ファ ー に ある か 判定 し て 、 あ れ ば 
M$ = INPUT$(1, #1) で 1 バイ ト 分 を 読み 取り ます 。 

アス キー コー ド は 、 1 6 進数 で 00 か ら 1F ま で は 、 制 御 コ ー ド に 使っ て いる の で 、 ま 
ず 、 読 み 取 っ た M$ が 、 1 6 進数 の 20 以 上 か どう か を 判定 し ます 。 

次 に 、 1 バイト が 漢字 コー ド の 1 バイ ト 目 か どう か を 判定 し ます 。 こ れ は 、 パ ソコ 
ン 通 信 で は 、 漢 字 コ ー ド と し て シフ ト 」 IS コー ド を 使用 し て いる 場合 が 多く 、 シ フ 
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ト 」 IS コー ド の 場合 は 、 1 バイ ト 目 の コー ド が 決っ て いる か ら 判 断 で きま す 。 す な 
わ ち 、 シ フト 」 IS の 漢字 コー ド 表 に よる と 、 1 バイ ト 目 は 、 1 6 進数 で 80 か ら 9F ま 
で 、 及 び 、EO か ら EF ま で と な っ て お り ま す 。 

これ に 対し て 、」IS コ ー ド を 利用 する 場合 は 、 こ の よう な 判定 は で き な い の で 、 
「 次 の コー ド が 漢字 で す 。」 「 漢 字 コ ー ド は 終り 。」 と いう こと を 表す コー ド (KI 
コー ド 、KO コ ー ド ) を 使う 必要 が あっ て 、 少 々 面倒 に な り ま す 。 

漢字 コー ド の 1 バイ ト 目 と わか る と 、2 バ イト 目 を 読ん で 、 こ れ を 加え て 、 2 バイ 
ト の 漢字 コー ド に し て 、 画 面 に 表示 し ます 。 も ちろ ん 、 漢 字 コ ー ド で な けれ ば 、 1 バ 
イト の まま で 画面 表示 し ます 。 

制御 コー ド の 中 で も 、 復 帰 コ ー ド (&HD) の 場合 は 改行 し 、 バ ックス ペー ス (&H8) 
の 場合 は 、 バ ックス ペー ス の サブ プロ シー ジャ 使っ て 、 画 面 上 で バッ クス ペー ス に な 
る よう 表示 し ます 。 ' 


(6) バッ クス ペー ス の サブ ププ ロ シ ー ジ ャ 


SUB BackSpace 
y = CSRLIN: =POSCO) *ー カ ー ソ ル の 現在 位置 を 取得 する 
LOCATE y, 文 - 1 * 一 左 へ 移動 


PRINT " の *ー ス ペー ス で 1 文字 を 消去 
LOCATE y, 文 - 1 * 左 へ 移動 
END SUB 





MNP と は ? 

パソ コン 通信 で 使わ れ て いる 無 手 順 の 通信 方 式 で は 、 し ば し ば 伝送 エラ ー を 生じ ま 
す 。 米国 の Microcom 社 は 、 こ れ を 避け る た め に 、 伝 送 エ ラー を 起こ さき な いよ うな 画 期 
的 な 通信 手順 を 開発 し まし た 。 こ の 通信 手順 を MN P (Microcom Networking Proto- 
col1) と いい ます 。 こ れ は 、 双 方 の モデ ム が ハー ドウ ェ ア 上 で 、 伝 送 デ ゲー タ に エラ ー 
チェ ッ ク の た め の 情 報 な ど を 加え て フレ ー ム と いう 包 に し て 送受 信 す る 方 法 で す 。 ま 
だ た 、 ク ラス 5 以上 で は デー タ の 圧縮 を し て 伝送 速度 を 高め て いま す 。 

これ まで 、 和 無 手順 の 通信 方 式 を 、 別 名 、 垂 れ 流し 方 式 と いっ て 、 文 字 化 け を し ば し 
ば 起こ す 方 式 と きれ て きま し た が 、MNP の 機能 を も つ モ デム を 採用 する こと に よっ 
て 、 エ ラー の な い デ ー タ を より 高速 に 送る こと が で きる よう に な り ま し た 。 
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り 。 3 拓 一 トロ グイ ン 


前 節 の プロ グラ ム で は 、 電 話 の 接続 後に ID 番号 や パス ワー ド な ど を 入力 する 必要 
が あり ます 。 こ の 部 分 も プロ グラ ム に 加え る と 、 プ ログ ラム が 自動 的 に セン ター の コ 
ンピュータ と の 接続 まで で きる よう に な り ま す 。 こ の こと を 一 般 に オー トロ グイ ン と 
いっ て いま す 。 
まず 、 電 話 の 接続 後に 送信 する デー タ の 内 容 の 表現 方 法 を 決め ます 。 
( 1 ) 送信 する デー タ を その まま 表記 する 。 
( 2 ) 改行 コー ド (&HOD &HOA) は ! と 表記 する 。 
そこ で 、 「ABC リ ター ン 」 な ら ば 、ABC! と 表記 する 。 

(3 ) プロ ンプ ト が 送ら れ て か ら 送 信 す る 場合 は 、 プ ロン プ ト を [で 囲ん で 表記 する 。 
例え ば 、Enter Conneciion-ID ---> の 後に SVC リ ター ン を 送信 する 場合 は 、[->] 
SVOI と し ます 。 

(4) タイ ミン グ を 取る た め に 時 間 を お く 必 要 の ある 場合 は 、* を 表記 し ます 。 
* が ひと つ で 、 1 秒 以 内 の 時 間 を 待ち ます 。 


電話 の 接続 後に どの よう な 送信 を する か を 確か め ま す 。 
(1 ) 電話 の 接続 直後 に 送る 信号 
① 一 般 の パソ コン 通信 の 場合 は 、 改 行 コ ー ド (&HOD &HOA) を 送る こと が 多い 
よう で すず 。 
これ を ! と 表記 し ます 。 
⑧② PC-ーVAN の 場合 は 、VANPCNEC02 及 び 改 行 コ ー ド (&HOD &HOA) を 送り ま 
す 。 
これ を VANPCNEC02! と 表記 し ます 。 
③ NIFTY Serve の 場合 は 、.01+ を 送る と 、 改 行 が 返っ て き て 、 さ ら 
に Enter Connection-ID ---> が 送信 され る の で 、SVC 及 び 改 行 コ ー ド (&HOD& 
HOA) を 送り ます 。 
これ を .01+[->]SVC! と 表記 し ます 。 
(2 ) ID 番号 
まず 、1ID 番 号 の プロ ンプ ト が 送ら れ て きま す 。 一 般 に は 、--> が 多い よう で 
すず 。 
これ を 、[->] と 表記 し ます 。 ま た 、PC 一 VAN の 場合 は 、[: ] で す 。 
ID 番号 は 、 例 えば 、ABC123! と 表記 し ます 。 
(8 ) パス ワー ド 
ID 番号 の 場合 と 同じ で す 。 
パス ワー ド の プロ ンプ ト は 、。 ト テン]1。、[: ] の よう に 凌 記 し ます 。 
パス ワー ド は 、 例 えば 、XYZ987A! と 表記 し ます 。 


一 262 一 


オー トロ グイ ン の デー タ を 送る た だ ため の サブ プロ シー ジャ (Sousin) を つく り ま す 。 
Sousin の プロ グラ ム の 構造 は 、 次 の と お り で す 。 


送信 デー タ が な けれ ば サ プ プ ロ シ ー ジ ャ を 出る 。 


送信 デー タ の 先頭 の 
次 の 処理 を 行なう 。 
* な ら ば 時 間 を お く 。 
1 な ら ば リタ ー ン コー ド を 送る 。 
[な ら ば 、 ] まで の 間 の デー タ を 
- 受信 する まで 受信 を 繰り 返す 。 
上 記 以 外 の 文字 を 送信 する 。 


送信 デー タ が ] バイ ト な ら ば 
サ プ ロ シー ジャ を 出る 。 
送信 デー タ の 先頭 の 1 バイ ト 目 を カッ ト し て 
2 バイ ト 目 以降 を 次 の 送信 デー タ と する 。 

















オード ログ ツジ 
デー タ を 送信 する 
サブ プロシージャ 






















(1) メイ ンプ デ ロ シー ジャ 


DEFINT A-Z 

DECLARE SUB Setuzoku (KakuninData$) 

DECLARE SUB SouZyusin () 

DECLARE SUB Zyusin (M$) 

DECLARE SUB BackSpace () 

DECLARE SUB Sousin (SousinData$) 

DECLARE SUB AtSousin (SousinData$, KakuninData$) 

通信 3  **** オー トロ グイ ン **** (TUUSIN3.BAS) 

Setuzoku KakuninData$ * デ 接続 する 

TF KakuninData$ = "CONNECT" THEN *=-CONNECT と か えっ て きた ら 
Souyusin * 一 送受 信 を 開始 





(2 ) 接続 の サブ プロ シー ジャ 





SUB Setuzoku (KakuninData$) * 一 接続 の サブ ププ ロ シ ー ジ ャ 
CLS 2 * 一文 字画 面 消去 
LOCATE 2, 1, 1, 14, 1S **ー カ ー ソ ル を 表示 する 


FILEMEI$ = "COM1:2400,N,8,1.CDO,DSO" 
OPEN FILEMEI$ FOR RANDOM AS #1 LEN =256 "一 通信 回 線 の ファ イル を 開く 


Kaigyou$ = CHRS$(&HD) * 一 攻 行 
LineFeed$ = CHRS( 層 芋 A) *ー ラ イン フィ ー ド 
OK$ = "OK" + Kaigyou$ + LineFeed$ * デ OK$ の 設定 


AtSousin "AT エグ"。 OK$ *ー モ デム の 初期 化 
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AtSousin "ATP1"。 OK$ * 自 分 の 電話 の 方 式 


AtSousin "ATBO", OK$ *ーCC 1 T イ 規格 
AtSousin "AT 文 4"。 OK$ * デ 接続 後 の 通信 速度 の 表示 
Mnp$ = "1" * デ MNP 接 続 の 場合 
SELECT CASE Mnp$ 
CASE "0": AtSousin "ATYVO0", OK$ *-MNP 接 続 し な い 
AtSousin "ATYNO0", OK$ 
CASE "1": AtSousin "ATYV2"。 OK$ *ーMNP 接 続 する 
AISousin "ATYN3", OK$ 
END SELECT 
KakuninData$ = "CONNECT" 
AtSousin "ATDO196-S1-1101", KakuninData$ *ー ダ イヤ ル 
TF KakuninData$ = "BUSY" THEN * 一 話 中 の と き は 
CLOSE *ー フ ァイル を 閉じ て 
PRINT " 話 中 で す 。 何 か キ ー を 押し て くだ さい 。 " 
DO: LOOP UNTTL INKEY$ <> "" * 一 何 か キ ー を 押し た ら 
EIT SUB * 一 は じ め に 戻る 
END TE 
AtSousin ""。 Kaigyou$ + LineFeed$ "一 改行 と ライ ン フ ィ ー ド の 確認 
Sousin "*.01+[->]SVC!" * 一 接続 直後 の 信号 
Sousin "[->]" * デ 1 DD 番号 の プロ ンプ ト 
Sousin "ABCO1234S!" *ー 1 D 番 号 
Sousin "[->]" *ー パ スワ ー ド の プロ ンプ ト 
Sousin "YY9876S41!" *ー バ パスワード 
KakuninData$ = "CONNECT" * 一 確認 の た め に CONNECT の セッ ト 
END SUB 





(3 ) AT エコ マン ド を 送信 する サブ プロ シー ジャ 


SUB AtSousin (SousinData$, KakuninData$) "一 送信 の サブ プロ シー ジャ 
(省略 前 節 に 同じ ) 
LOOP UNTIL INSTR(MM$, KakuninData$) 
"一 索 積 し た 文字 の 中 に 確認 する 文字 が あれ ば 
FOR 1 = 1 TO 10000: NET 1 "一 時 間 を お く 
END SUB *ー サ ププ ロ シ ー ジ ャ を 出る 





(4) オー トロ グイ ンコ マン ド を 送信 する サブ プロ シー ジャ 





SUB Sousin (SousinData$) 
* 一 自動 接続 の た め の コ マン ド を 送信 する サブ プロ シー ジャ 
S$ = SousinData$ 


IF S$ = " THEN * 一 送信 デー タ が な けれ ば 
E 天 IT SUB *ー サ ブ ププ ロ シ ー ジ ャ を 出る 

END IF 

DO 


SELECT CASE MID$(S$, 1, 1) * 一 送信 デー タ の 1 バイ ト 目 が 
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CASE "*": 工科 = TIMER "ーー な ら ば 時 間 を お く (0.5 く らい 
DO: LOOP UNTIL TIMER > T 色 

CASE "PRINT #1. の" *ー! な ら ば 改行 コー ド を 送る 

CASE "[" *ー[ な ら ば 
PR$ = MID$(S$, 2, INSTR(S$, "]") - 2) "一 入力 待 の 文字 (プロ ンプ ト ) 
MM$ = " 


DO 
yusin MS$ * 一 受信 の 手続 き へ 
MIM$ = MM$ + M$ * 一 文字 を 累積 
M$ ー 0 


LOOP UNTIL INSTR(MM$, PR$) 
* 一 累積 し た 文字 に プロ ンプ ト を 合 め ば 次 へ 
S$ = MIDS(S$, INSTR(S$, "]"), LEN(S$) - INSTR(S$, "]" の + 1) 
*-S$$ か ら プ ロン プ ト を カッ ト 


CASE ELSE 
PRINT #1, MIID$(S$, 1, 1): * 一 送信 する 
yusin MI$ *ー 受 信 す る 手続 き 
END SELECT 
FOR 1 = 1 TO 1000: NET I "一 時 間 を お く 
ITF LEN(S$) = 1 THHEN *ー 1] バイ ト な ら サ ブ ププ ロ シ ー ジ ャ を 出る 
EXIT DO 
END 
S$ = MID$(S$, 2, LEN(S$) - 1) "一 送信 デー タ の 1 バイ ト 目 を カッ ト 
LOOP 
END SUB 





(5) 送受 信 す る サ プ プ ロ シ ー ジ ャ 


SUB SouZyusin * 一 送受 信 の サ プ プ ブ プロシージャ 
(省略 前 節 に 同じ ) 
CLOSE * デ ー フ ァイル を 閉じ て 出る 


END SUB 





(6 ) 受信 の サブ プロ シー ジャ 


SUB 愛 yusin MS$) * 一 受信 の サ プ プ ブロ シー ジャ 
(省略 前 節 に 同じ ) 


END SUB 





(7) パッ クス ペー ス の サブ ププ ロ シ ー ジ ャ 


SUB BackSpace *ー バ ックス ペー ス の サブ プロ シー ジャ 


(省略 前 節 に 同じ ) 
END SUB 
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9. 4 通信 条件 の 設定 


前 節 ま で の プロ グラ ム で は 、 パ ソコ ン 通 信 の セン ター ご と に 、 別 の プロ グラ ム を 必 
要 と し まし た だ た 。 そ こ で 、 あ ら か じ め 、 パ ソコ ン 通 信 の 通信 条件 を ファ イル に 入力 し 、 
これ を 読み 出し て 利用 する よう に 改造 し ます 。 

プロ グラ ム の 改造 の 概要 は 次 の と お り で す 。 






、 電 話 番号 、MNP の 連続 、 
イ 
トロ グイ ンコ マン ド な どの 入力 












設定 ファ イル を 開く 
設定 ファ イル を 読ん で 各 セ ンタ ー の 名 称 を 画面 表示 





(1) メイ ンプ ロ シ ー ジ ャ 





DEFINT A-Z 


DECLARE SUB KeySet () 
DECLARE SUB CenterSentaku () 
DECLARE SUB Setuzoku (KakuninData$) 


DECLARE SUB SouZyusin () 
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DECLARE SUB Settei () 

DECLARE SUB Teisei () 

DECLARE SUB 忌 yusin (M$) 

DECLARE SUB BackSpace () 

DECLARE SUB Sousin (SousinData$) 

DECLARE SUB SpaceCut (SousinData$, S$) 

DECLARE SUB AtSousin (SousinData$, KakuninData$) 
通信 4  **** 通信 条件 の 設定 と 訂正 ****(TUUSIN4.BAS) 


TYPE SetteiType *ー オ ー ト ログ イン の レコ ー ド タイ プ 
Namae ASSTRING* 20 *ー セ ンタ ー の 名 称 
Denwa ASSTRING* 16 *ー セ ンタ ー の 電話 番号 
Mtnp ASSTRING* 1 *ーMNP 接 続 
Sokudo ASSTRING* 4 *ー 通 信 速 度 
Parity ASSTRING* 1 *ー パ リティ 
Nagasa ASSTRING* 1 シー デー タ 長 
StopBit AS STRING* 1 *ー ス トッ プ ビ ッ ト 
Setuzoku AS STRING* 20 * 一 電話 接続 後 の 送信 信号 
IdPrompt AS STRING* 10 *ー1ID 番 号 の プロ ンプ ト 
IdBangou AS STRING* 10 *ー 1 DD 番号 
PassPrompt AS STRING* 10 *ー パ スワ ー ド の プロ ンプ ト 
PassWord ASSTRING* 10 > パス ワー ド 

END TYPE 

DIM SetteiR AS SetteiType *ー レ コー ド 

Hazirmne: *ー は じ め の 名 札 

DO 
CLS * 画 面 消去 


PRINT "1: 通信 の 開始 ": PRINT 

PRINT "2: 通信 条件 の 設定 ": PRINT 

PRINT "3: 通信 条件 の 訂正 ": PRINT 

PRINT "4: 終了 ": PRINT 

PRINT "選択 し て 番号 を 入力 し て くだ さい 。-->": 

DO: K$ = INKEY$: LOOP UNTIL K$ >= "0" AND K$ <= "4" 


PRINT 
SELECT CASE K$ 
CASE "1" *ー1 な ら ば 
CenterSentaku > セン ター を 選択 し て 
Setuzoku KakuninData$ * 一 接続 する 
IF KakuninData$ = "CONNECT" THEN **-CONNECT と か えっ て きた だ たら 
Sou 審 yusin * 一 送受 信 を 開始 
END IF 
CASE "2": Settei *-2 な ら ば 、 通 信条 件 の 設定 
CASE "3": Teisei *-3 な ら ば 、 通 信条 件 の 訂正 
CASE "4": CLS : CLOSE : END *-4 な ら ば 、 終 了 
END SELECT 
LOOP 


END 
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(2 ) 通信 条件 の 設定 の サブ ププ ブ プロシージャ 







SUB Settei "一 接続 条件 等 の 設定 
SHARED SetteiR AS SetteiType *<-SetteiK の 共用 
CLS 2 * 一 文字 画面 消去 
PRINT 





PR INT "キキ キキ キキ ギ 電話 番号 等 の 設定 キキ 束 玉 玉 玉 玉 字 "PRINT 
OPEN "B:Settei.dat'"' FOR RANDOM AS #2 LEN = LEN(SetteiR) 

*= 通 信条 件 を 設定 し た デー タ の ファ イル を 開く 
FOR I = 1 TOLOF(2) / LEN(Sette 所 ) 
















GET #2, IT, SetteiR * 一 設定 ファ イル を 読ん で 
PRINTI: " ": SetteiR.Namae * 画 面 表 示す る 
NEXT 1 
TourokuBangou = LOF(2) / LEN(SetteiR)+ 1 > 一 登録 番号 の 決定 
PRINT : PRINT "登録 番号 -->": TourokuBangou: PRINT 
INPUT "通信 ネッ トワ ー ク の 名 称 ーー"。SetteiR.Narmae 
INPUT "電話 番号 ( 例 0123-4S-6789) ーー"。SetteiR.Denwa 
INPUT "MNP 接 続 (し な い :0 する :1 ) ー>"。SetteiR.Mnp 
INPUT "通信 速度 ( 例 1200、2400) ー>"。SetteiR.Sokudo 


INPUT "パリ ティ ( 例 な し :N 偶数 :E 奇数 {O) -->", SetteiR.Parity 
INPUT "デー タビ ッ ト 長 7 ビッ ト :7 8 ビッ ト :8) -->"。 SetteiR.Nagasa 
INPUT" ス トッ プ ビ ッ ト (1 ある い は 2) ー>"。SetteiR.StopBit 
PRINT "接続 直後 に 送信 する 信号 " 

PRINT " (リン! ブロ ノブ ト :[] 約 0.5 秒 待つ :* ) " 

PRINT" (一 般 の BBS の 場合 !)" 

PRINT" (PC 一 VAN の 場合 VANPCNECO2!) " 

PRINT" (NIFTY Serve の 場合 .01+[->]SVC!) " 








INPUT " ー>"。SetteiR.Setuzoku 
INPUT" ID 番 号 の プロ ンプ ト ([] で 囲む [->]) -->", SetteiR.IdPrompt 
INPUT" ID 番号 ( 例 abcd12341 ) ー>"。SetteiR.IdBangou 
INPUT "パス ワー ド の プロ ンプ ト (で 囲む [->]) -->", SetteiR.PassPrompt 
INPUT "パス ワー ド ( 例 abcd1234! ) ー>"。SetteiR.PassWord 
PUT #2, TourokuBangou, SetteiR * 一 設定 の ファ イル へ の 書き 込み 
CLOSE #2 *ー フ ァイル を 閉じ る 






END SUB 





(3 ) 通信 条件 を 訂正 する サブ プ プ ブ プロシージャ 





SUB Teisei * 一 訂正 の サブ プロ シー ジャ 
SHARED SetteiR AS SetteiType *=-SetteiR の 共用 
CLS 2 

PRINT 


PRINT "**** ネ **※*※ 雪 話 番号 等 の 訂 止ま キ キキ ネネ キネ ※*※*※" り ・PRINT 
OPEN "BE:Settei.dat" FOR RANDOM AS #2 LEN = LEN(SetteiR ) 
* 一 通信 条件 の 設定 し た デー タ の ファ イル を 開く 
FOR I = 1 TOLOF(2) / LEN(SetteR) 
GET #2, 1, SetteiR * 一 設定 ファ イル を 読ん で 
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PRINT I: " ": SetteiR.TNamae * デ 画面 表示 する 


NEXT 1 

PRINT 

PRINT "訂正 する デー タ の 登録 番号 を 入力 し て くだ さい 。-->": 

DO: T$ = INKEY$: LOOP UNTIL T$ <> "" 

TourokuBangou = VAL(T$) * 一 登録 番号 の 入力 


TIF TourokuBangou > LOF(2) / LEN(SetteiR) OR TourokuBangou < 1 THEN 


CLOSE 2: EXIT SUB 


ーー": SetteiR.Namae 
ーー" SetteiR.Denwa 
ー ン >" SetteiR.Mmnp 
ーー": SetteiR.Sokudo 
ーー") SetteiR.Parity 
ーー" Sette1iR.Nagasa 
ーー SetteiR.StopBit 


ーー": SetteiR.Setuzoku 


END IF 
GET #2, TourokuBangou, SetteiR *ー フ ァイル の 登録 番号 の デー タ を 読む 
DO 
PRINT 
PRINT" 1 通信 ネッ トワ ー ク の 名 称 
PRINT "2 電話 番号 
PRINT"3 MNP 接 続 (し な い :0 する :1) 
PRINT" 4 通信 速度 (300 1200 2400) 
PRINT"S パリ ティ (な し :N 偶数 :E 奇数 O) 
PRINT" 6 デー タビ ッ ト 長 (7 ビッ ト :7 8 ビッ ト :8) 
PRINT"7 スト ッ プ ビッ ト (1 ある い は 2) 
PRINT"S8 接続 直後 に 送信 する 信号 
PRINT" 9 ID 番号 の プロ ンプ ト (で 囲む [->]) 


PRINT "10 ID 番号 ( 例 abcd1234! ) 

PRINT "11 パス ワー ド の プロ ンプ ト ([] で 囲む [->]) 
PRINT "12 パス ワー ド ( 例 abcd12341 ) 

PRINT 


INPUT "訂正 する 項目 の 番号 を 入力 し て くだ さい 。 終了 :E  -->": TeiseiBangou$ 


PRINT 
SELECT CASE VAL(TeiseiBangou$) 
CASE 1 
INPUT "通信 ネッ トワ ー ク の 名 称 
CASE 2 
INPUT "電話 番号 ( 例 0123-43-6789 ) 
CASE 3 
INPUT "MNP 接 続 (し な い :0 する :1 ) 
CASE 4 
INPUT "通信 速度 (300 1200 2400) 
CASE $ 
INPUT "パリ ティ (な し :N 偶数 :E 奇数 O) 
CASE 6 
INPUT "データ ビッ トラ 長 (⑰ ビ ピット 7 8 ビッ トド 8) 
CASE 7 
INPUT" ス トッ プ ビ ッ ト (1 ある い は 2) 
CASE 8 
PRINT "接続 直後 に 送信 する 信号 " 
PRINT" (一 般 の BBS の 場合 リタ ー ン :!) " 
PRINT" (PC 一 VAN の 場合 VANPCNECU) " 
PRINT" (NIFTY Serve の 場合 .0O1+[->]SVC!) 
INPUT " 
CASE 9 
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ー>"。SetteiR.Namae 


ー>"。SetteiR .Denwa 


に 


ー>"。SetteiR.Mmnp 


に 


ー>"。SetteiR.Sokudo 


e 


ー>"。SetteiR.Parity 
ーー"。SetteiR.Nagasa 


ー ン "SetteiR.StopBit 


ーー"。 SetteiR.Setuzoku 


"SetteiR .IdPrornpt 
ーー ンー" SetteiR.IdBangou 
ーー ンー": SetteiR.PassPrormpt 
"SetteiR.PassWord 


INPUT " I D 番 号 の プロ ンプ ト ([] で 囲む [->]) -->", SetteiR.IdPrompt 
CASE 10 
INPUT "ID 番号 ( 例 abcq1234! ) ー>"。 SetteiR.IdBangou 
CASE 11 
INPUT "パス ワー ド の プロ ンプ ト ([] で 囲む [->]) -->"。 SetteiR.PassPrompt 
CASE 12 
INPUT "パス ワー ド ( 例 abcd12341 ) ーー"。 SetteiR.PassWord 
END SELECT 
LOOP UNTIL TeiseiBangou$ = "E" "一 TeiseiBangou$ が E な ら ば 次 へ 
PUT #2, TourokuBangou, SetteiR "一 設定 の デー タ を ファ イル へ 書き 込む 
CLOSE #2 **ー フ ァイル を 閉じ る 


END SUB 





(4 ) 通信 先 を 選択 する サ プ プ ロ シ ー ジ ャ 


SUB CenterSentaku * デ セン ター を 選択 する サブ プロシージャ 
SHARED SetteiR AS SetteiType * デ SetteiR の 共用 
CS る "一 文字 画面 の 消去 
OPEN "B:Settei.dat" FOR RANDOM AS #2 LEN = LEN(SetteiR) 
* 一 通信 条件 を 設定 し た デー タ の ファ イル を 開く 
FOR 1 = 1 TO LOF(2) / LENCSetteiR ) 
GET #2, IT, SetteiR * 一 設定 ファ イル を 読ん で 
PRINT 1: " の": SetteiR.Narmae * 一 画面 表示 する 
NEXTI 
PRINT : PRINT "どちら へ 通信 し ます か 。 番号 を 入力 し て くだ さい 。-->": 
DO 
1I$ = INKEY$ * = 通信 する セン ター の 番号 を 入力 
LOOP UNTIL VAL(1$) > 0 AND VAL(I$) <= LOF(2) / LEN(SetteiR) 
GET #2, VAL(T$), SetteiR * 一 設定 の ファ イル を 読む 
VIEW PRINT 1TO 1 
LOCATE 1, 1 
PRINT " 通信 先 ": SetteiR.Namae: " ("SetteiR.Denwa: ") 5 
CLOSE #2 * フ ァイル を 閉じ る 
END SUB 





(5 ) 通信 条件 の デー タ の スペ ー ス を 削除 する サブ プ プ ロ シ ー ジ ャ 





SUB SpaceCut (SousinData$, S$) 
* 一 送信 デー タ の 後部 の スペ ー ス を カッ ト す る 


SS ="" 
FOR !=LEN(SousinData$) TO 1 STEP -1 
IF MTD$(SousinData$, 1, 1) ="" THEN * 後 部 が スペ ー ス な ら ば 
SousinData$ = MID$(SousinData$, 1, I - 1) 
*ー ス ペー ス を カッ ト す る 
ELSE 


S$ = SousinData$ >ー ス ペー ス が な けれ ば 
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EXIT SUB ae ププ ロジ シー ジャ を 肌 る 





(6) 接続 の サブ ププ ロ シ ー ジ ャ 








SUB Setuzoku (KakuninData$) * 一 接続 の サブ ププ ロ シ ー ジ ャ 
SHARED SetteiR AS SetteiType *ーSetteiR の 共用 
VIEW PRINT 2 TO22 

CES "文字 画面 消去 
LOCATE 2。1,。1, 14, 1S *ー カ ー ソ ル を 表示 する 


FILEMEI$ = "COM1:" + SetteiR.Sokudo+ "" + SetteiR.Parity 『。 
"+ SetteiR.Nagasa + "。" +SetteiR.StopBit + "CDO,DS0" 


OPEN FILEMEI$ FOR RANDOM AS #1 LEN = 2S6 * ュ 通信 回 線 の ファ イル を く 
Kaigyou$ = CHRS( 員 HHD) "am 
LineFeed$ = CHRS$( 科 HHA) *ー ラ イン フィ ー ド 
OK$ = "OK" + Kaigyou$ + LineFeed$ *=-OK$ の 設定 
AtSousin "ATZ", OK$ *ー モ デム の 初期 化 
AtSousin "ATP1"。 OK$ * 一 自分 の 電話 の 方 式 
AtSousin "ATBO", OK$ *ーCC IT 工 規格 
AtSousin "ATX4", OK$ * 一 接続 後 の 通信 速度 の 表示 
SELECT CASE SetteiR.Mmnp 

CASE "0": AtSousin "ATYVO0", OKS *-MNP 接 続 し な い 

AtSousin "ATYNO", OK$ 
CASE "1": AtSousin "ATYV2", OK$ *ーMNP 接 続 する 


AtSousin "ATYN3", OK$ 
END SELECT 
KakuninData$ = "CONNECT" 
AtSousin "ATD" + SetteiR.Denwa, KKakuninData$ *ー ダ イヤ ル 


IF KakuninData$ = "BUSY" THIEN * 一 話 中 の と き は 
CLOSE *ー フ ァイル を 閉じ て 
PRINT " 話 中 で す 。 何 か キ ー を 押し て くだ さい 。" 

DO: LOOP UNTIL INKEY$ <> "" * 一 何 か キ ー を 押し た ら 
EXIT SUB > デー は じ め に 戻る 

END IF 

AtSousin ""。Kaigyou$ + LineFeed$ > 一 改行 と ライ ン フ ィ ー ド の 確認 

Sousin SetteiR.Setuzoku *ー 接 統 直 後 の 信号 

Sousin SetteiR .IdPrormpt *ー1D 番 号 の プロ ンプ ト 

Sousin SetteiR .IdBangou *ー 1 D 番 号 

Sousin SetteiR .PassPrompt *ー パ スワ ー ド の プロ ンプ ト 

Sousin SetteiR.PassVVord > ニー パス ワー ド 

KakuninData$ = "CONNECT" * 一 確認 の た め に CONNECT の セッ ト 


END SUB 
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(7 ) A エ コマンド を 送信 する サ プ プ ロ シ ー ジ ャ 


SUB AtSousin (SousinData$, KakuninData$) "一 送信 の サブ プロシージャ 
IF SousinData$ <> "" THIEN > 一 送信 デー タ が あれ ば 


(省略 前 節 に 同じ ) 
END SUB *ー サ ププ ロ シ ー ジ ャ を 出る 





(8 ) オー トロ グイ ンコ マン ド を 送信 する サブ プロ シー ジャ 


SUB Sousin (SousinData$) 
> 自動 接続 の た め の コ マン ド を 送信 する サブ プ プ ロ シ ー ジ ャ 
(省略 前 節 に 同じ ) 
END SUB 





( 9 ) 送受 信 す る サ プ プ ロ シ ー ジ ャ 


SUB Souyusin * 一 送受 信 の サ プ プ ブ プロシージャ 
(省略 前 節 に 同じ ) 
END SUB 





(1 0 ) 受信 の サブ プ プ ロ シ ー ジ ャ 


SUB Zyusin (MS) * 一 受信 の サ プ プ ロ シ ー ジ ャ 
(省略 前 節 に 同じ ) 
END SUB 





(1 1) バッ クス ペー ス の サ プ プ ロ シ ー ジ ャ 


SUB BackSpace *ー バ ックス ペー ス の サブ ププ ロ シ ー ジ ャ 


(省略 前 節 に 同じ ) 
END SUB 
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9。 所 アッ アロ ー ド と を と ゲ ダウン ロー ド 


パソ コン 通信 で 多量 の 情報 を 受信 し て も 、 こ れ を 画面 上 で 読み 取る こと は 困難 で す 。 
そこ で 、 送 受信 し た 記録 を ファ イル と し て 保存 する 必要 が あり ます 。 こ の こと を ダウ 
ン ロ ー ド と いい ます 。 

また 、 逆 に 、 電 子 掲示 板 や 電子 メー ル へ 送信 する 場合 に 、 接 続 し た 状態 で キー ボー 
ド か ら 入 力 し て いた の で は 、 接 続 時 間 が 長く な り 、 電 話 料 や 接続 料金 の 負担 が 多額 に 
な る 恐れ も あり ます 。 そ こ で 、 接 続 す る 前 に 、 あ ら か じ め 、 送 信 内 容 を 入力 し て ファ 
イル と し て お き 、 接 続 後 、 一 括 し て ファ イル の 内 容 を 送信 すれ ば 、 短 時 間 で 済み 、 経 
費 の 節約 に も な り ま す 。 こ の こと を アッ プロ ー ド と いい ます 。 

アッ プロ ー ド と ダウ ン ロ ー ド は 、 接続 後 、 通 信 の 途中 で 、 フ ァ ン クシ ョ ン キ ー を 押 
し て 利用 し ます 。 従っ て 、 プ ログ ラム 上 で は 途中 で 割り 込む 方 法 で 作動 きせ る こと に 
な り ま す 。 

お よそ 、 次 の よう な 手順 で プロ グラ ム を つく り ま す 。 

(1) ファ ンク ショ ン キ ー ド に 機能 を 表示 し ます 。 

アッ プー ロー ド を ファ ンク ショ ン キ ー6 番 へ 、 グ ウン シン ロード を ファ ンク ショ ン 
キー 7 番 へ 割り 当て ます 。 


KEY 6, "記録 始 " 
KEY 7, "送信 " Fi は 、 フ ァイル を 送信 する と いう 意味 で 、File の 
Fi か ら と り ま し た 。 
KEY 6, "記録 終 " 通信 記録 中 の 表示 
(2 ) 表示 し ます 。 
KEY ON 


(3) イベ ント トラ ッ ピ ング を 設定 し ます 。 
ON KEY(6) GOSUB KirokuHazime 
ON KEY(7) GOSUB FileSousin 
ON KEY(6) GOSUB KirokuOwari 通信 記録 を 保存 し て いる と き は 、 フ ァ 
ンク ショ ン 6 を 終了 に 割り 当て ます 。 
(4 ) 機能 を ON に し ます 。 
KEY(6) ON 
KEY(7) ON 
( 7 ) KirokuHazime、KirokuOwari 及 び FileSousin の サブ ルー チン を メイ ンプ ログ ラ 
ム に 加え ます 。 
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サ プ ブルー チン の プロ グラ ム の 構造 は 次 の と お り で す 。 






















カー ソル の 現在 位置 を 取得 

8 記録 を 保存 する シル シ を 付け る 

通信 記録 の 保存 する ファ イル 名 を 入力 する 

保存 開始 の 保存 する ファ イル を 開く 内 

水 ア ルー チ ジ 通信 記録 を ファ イル へ 保存 し て いる こと を 表示 する 
ファ ンク ショ ン キ ー6 に 記録 終了 を 割り 当て て 表示 する 





元 の 位置 へ カー ソル を 戻す 


通信 記録 の カー ソル の 現在 位置 を 取得 

保存 終了 の 通信 記録 の ファ イル を 閉じ る _ 
ファ ンク ショ ン キ ー 6 に 通信 記録 開始 を 割り 当て て 表示 する 
元 の 位置 へ カー ソル を 戻す 








(1) メイ ンプ プロシージャ 





DEFINT A-Z 

DECLARE SUB KeyScet () 

DECLARE SUB CenterSentaku () 

DECLARE SUB Setuzoku (KakuninData$) 

DECLARE SUB SouZyusin () 

DECLARE SUB Settei () 

DECLARE SUB Teisei () 

DECLARE SUB yusin (M$) 

DECLARE SUB BackSpace () 

DECLARE SUB Sousin (SousinData$) 

DECLARE SUB SpaceCut (SousinData$, S$) 

DECLARE SUB AtSousin (SousinData$, KakuninData$) 

> 通信 5 **** アッ プロ ー ド と ダウ ン ロ ー ド **** (TUUSINS.BAS) 
> (通信 記録 の 保存 と ファ イル の 一 括 送信 ) 


TYPE SetteiType … こ オード 中 グ イル の レロ ー ド タオ イデ 
Namae AS STRING* 20 *ー セ ンタ ー の 名 称 
Denwa AS STRING* 16 *ー セ ンタ ー の 電話 番号 
Mnp ASSTRING* 1 *-MNP 接 続 
Sokudo AS STRING* 4 * 一 通信 速度 
Parity ASSTRING* 1 ーー パ ティ 
Nagasa AS STRING* 1 5 キー 長 
StopBit AS STRING* 1 *ー ス トッ プ ビ ッ ト 
Setuzoku AS STRING* 20 "一 電話 接続 後 の 送 信 信 号 
IdPrompt AS STRING * 10 *ー1D 番 号 の プロ ンプ ト 
IdBangou AS STRING* 10 *ー 1 D 番 号 


PassPrompt AS STRING* 10 = ネス ワー ド の プロ ンプ ト 
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PassWord AS STRING* 10 *ー バ パス ワー ド 


END TYPE 
DIM SetteiR AS SetteiTypDe *ー レ コー ド 
Hazime: * 一 は じ め の 名 札 
DO 
CLS * て 画面 消去 
KeySet **ー フ ファンクション キー の セ モット 


PRINT "1: 通信 の 開始 ": PRINT 

PRINT "2: 通信 条件 の 設定 ": PRINT 

PRINT "3: 通信 条件 の 訂正 ": PRINT 

PRINT "4: 終了 ": PRINT 

PRINT "選択 し て 番号 を 入力 し て くだ さい 。-->"': 

DO: K$ = INKEY$: LOOP UNTIL K$ >= "0" AND K$ <= "4" 


PRINT 
SELECT CASE K$ 
CASE "1" * デ 1 な ら ば 
CenterSentaku **ー セ ンタ ー を 選択 し て 
Setuzoku KakuninData$ ュー 接 続 す る 
IE KakuninData$ = "CONNECT" THEN "CONNECT と か えっ て きた だ たら 
Souyusin * 一 送受 信 を 開始 
END IF 
CASE "2": Settei "2 なら ば 、 通 信条 件 の 設定 
CASE "3": Teisei "3 な ら ば 、 通 信条 件 の 訂正 
CASE "4"・ CLS : CLOSE : END >==-4 な ら ば 、 終 了 
END SELECT 
LOOP 


EN 


D 





(2 ) 通信 記録 の 保存 開始 (ダウ ン ロ ー ド 開始 ) の サブ ルーチン 


KirokuHHazirne: *ー フ ァイル を 保存 する サブ ルー チン 


y =CSRLIN: メ = POS(O) *ー カ ー ソ ル の 現在 位置 を 取得 
Kiroku = 1 * 一 記録 を 保存 する サイ ン 

VIEW PRINT 23 TO 23 

CLS 2 * 一 文字 画面 消去 

PRINT "保存 する ファ イル 名 を 入力 し て くだ さい 。 ( 例 B:HOZONLOG ) -->: 
INPUT HozonFile$ * 一 保存 する ファ イル 名 の 入力 
OPEN HozonFile$ FOR OUTPUT AS #3 * 一 保存 する ファ イル 名 を 開く 

CLS 2 * 一 文字 画面 消去 

PRINT "*** ネ ネネ ネネ 通信 記録 を ": HozonFile$: " へ 保存 し て いま す 。 *** 
KEY 6, "記録 終 " 

KEY ON 

KEY(6) OFF 

ON KEY(6) GOSUB KirokuOwari 

KEY(6) ON 

VIEW PRINT 2 TO22 

LOCATE y。 文 **- カ ー ソ ル を 戻す 


RETURN 
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( 3 ) 通信 記録 の 保存 終了 (ダウ ン ロ ー ド 終了 ) の サブ ルー チン 


KirokuOwari: "< 通信 記録 の 保存 を 終了 し て ファ イル を 閉じ る サブ ルー チン 
y = CSRLIN: 文 = POS(O) * 一 カー ソル の 現在 位置 を 取得 
CLOSE 3 
Kiroku =O * 一 記録 を 保存 する サイ ン 
VIEW PRINT 23 TO 23 
GE 仙 2 * 一 文字 画面 消去 


KEY 6, "記録 始 ": KEY ON: KEY(6) OFF 

ON KEY(6) GOSUB KirokuHazime 

KEY(6) ON 

VIEW PRINT 2TO 22 

LOCATE y, 駐 *ー カ ー ソ ル を 戻す 
RETURN 





(4 ) ファ イル の 一 括 送信 (アッ プロ ー ド ) の サブ ルー チン 


FileSousin: * デ ファ イル を 一 括 送 信 す る サ プ ブルー チン 
y = CSRLIN: 文 =POS(O) *ー カ ー ソ ル の 現在 位置 を 取得 
VIEW PRINT 24 TO 24 
CLS 2 * 一 文字 画面 消去 
PRINT "送信 する ファ イル 名 を 入力 し て くだ さい 。 ( 例 B:SOUSIN.FIL ) -->": 
INPUT SousinFile$ * 一 送信 する ファ イル 名 を 入力 
OPEN SousinFile$ FOR INPUT AS#4 "一 送信 する ファ イル 名 を 開く 
GELS ろ * 一 文字 画面 消去 
PRINT "***※\\\\ ファ イル ": HozonFile$: " を 一 括 し て 送信 し て いま す 。 *** 玉 玉 玉 下 
VIEW PRINT 2 TO 22 
DO 
LINE INPUT #4, SousinRec$ *ー フ ァイル を 読む 
PRINT #1, SousinRec$ *ー フ ァイル を 送信 する 
LOOP UNTIL EOF(4) *ー フ ァイル が 終わ り に な る まで 
CLOSE 4 *ー フ ァイル を 閉じ る 
VIEW PRINT 24 TO 24 
CLS 2 "一 文字 画面 消去 
VIEW PRINT 2 TO 22 
LOCATE y, 文 ** カ ー ソ ル を 戻す 
RETURN 





(5) ファ ンク ショ ン キ ー を 設定 する サブ プ プ ロ シ ー ジ ャ 
| 


SUB KeySet "ーー ファン クシ ョ ン キ ー を 設定 する サ プ プ ロ シ ー ジ ャ 
KEY 6, "記録 始 " * デ ファ ンク ショ ン キ ー6 は 受信 記録 の ファ イル 保存 
KEY 7, "Fi 送信 " *ー フ ァ ン クシ ョ ン キ ー7 は ファ イル の 一 括 送信 
KEY ON *ー フ ァ ン クシ ョ ン キ ー の 画面 表示 


ON KEY(6) GOSUB KirokuHazime "一 f6 を 押す と ファ イル 保存 の サ プ プ ロ シ ー ジ ャ へ 
ON KEY(7) GOSUB FileSousin "で f7 を 押す と ファ イル 送信 の サ プ プ ロ シ ー ジ ャ へ 
KEY(6) ON *<f 6 の 機能 を ON 

KEY(7) ON *ーf 7 の 機能 を ON 

LINE (0, 0)-(639, 16), 1, BF 
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LINE (0, 333)-(639, 368), 1, BF 
LINE (0, 369)-(639, 384), 3, BF 
LINE (0, 38$S)-(639, 399), 4, BF 
VIEW PRINT 2 TO 22 *ー フ ァ ン クシ ョ ン の 表示 が 消え な いよ うに 
END SUB 





(6 ) 受信 の サブ プロ シー ジャ 




























END SUB 





SUB Zyusin (M$) * 一 受信 の サブ ププ ロ シ ー ジ ャ 
SHARED Kiroku 
M$ ーー LA 
ITF LOC(1) THEN *ー 入 力 待ち の 文字 が ある な ら ば 
M$ = INPUT$(1, #1) メー 1] バイ ト を 読む 
SELECT CASE M$ 


CASE IS >= CHR$(&H20) "一 コー ド が 1 6 進数 20 以 上 の 場合 は 
IF (M$ >= CHR$(&H80) AND M$ <= CHR$(&H9F)) 
OR (M$ >= CHRS$(&HE0) AND M$ <= CHRS$(&HEF)) THEN 
Kanji$ = MS 
* 和 ト 漢 字 コ ー ド の 1 バイ ト 目 な ら ば ー 1 バイ ト 目 を 保存 し 
MS$ = INPUT$(1, #1) *ー2 バ イト 目 を 読み 取っ て 


MS$ = Kanji$ + MS *ー 1] バイ ト 目 と 2 バイ ト 目 を 連結 する 
END IF 
PRINT Mt$: *ー デ ー タ を 画面 表示 する 
CASE CHIR$(13) *ー コ ー ド が 改行 な ら ば 
PRINT * 一 画面 上 で 改行 する 
CASE CHR$(⑧) *ー バ ックス ペー ス な ら ば 
BackSpace *ー バ ックス ペー ス の 手続 き 
END SELECT 
IF Kiroku THEN * 一 記録 保存 な ら 
PRINT #3。 MS$: >ー フ ァイル へ 書き 込む 
END IF 
END IF 


(以下 の サブ プロシージャ は 前 節 と 同じ な の で 省略 し ます 。) 


SUB AtSousin (SousinData$, 反 akuninData$) "一 送信 の サ プ プ ロ シ ー ジ ャ 


SUB BackSpace *ー バ ックス ペー ス の サブ プ プ ロ シ ー ジ ャ 
SUB CenterSentaku * 一 セン ター を 選択 する サ プ プ ロ シ ー ジ ャ 
SUB Settei *ー 接 続 条件 等 の 設定 

SUB Setuzoku (KakuninData$) *<- 接 続 の サブ プ プ ロ シ ー ジ ャ 


SUB Sousin (SousinData$) 


> 自動 接続 の た め の コ マン ド を 送信 する サブ プロ シー ジャ 


SUB Souyusin * 一 送受 信 の サ プ プ ロ シ ー ジ ャ 
SUB SpaceCut (SousinData$, S$) 


* 一 送信 デー タ の 後部 の スペ ー ス を カッ ト す る 


SUB Teisei *=- 訂 正 の サブ プロ シー ジャ 
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9. 6 通信 ソフ ト の まとめ 





最後 に 、 電 話 を 切る 機能 、 プ ログ ラム の 先頭 に 戻す 機能 及び セン ター 側 に プレ ー ク 
信号 (処理 の 中 断 を 求め る 信号 ) を 送信 する 機能 を 加え て 、 ま と め と し ます 。 


電話 を 切る 機能 及び プロ グラ ム の 先頭 に 戻す 機能 の プロ グラ ム は 次 の よう に つく り 
ます 。 
(1) ファ ンク ショ ン キ ー2 に 電話 を 切る 機能 を 割り 当て 、 フ ァ ン クシ ョ ン キ ー3 に 
プロ グラ ム の 先頭 に 戻る 機能 を 割り 当て ます 。 
KEY 2, "電話 切 " 
KEY 3, "最初 へ " 
(2 ) 画面 表示 し ます 。 
(3 ) 機能 を 設定 し ます 。 
ON KEY(2) GOSUB DenwaSetudan 
ON KEY(3) GOSUB Modoru 
(4 ) 機能 を ON に し ます 。 
KEY(2) ON 
KEY(3) ON 
(5) サブ ルー チン プロ グラ ム を つく り ま す 。 
モデ ム が 1 秒間 以上 、 何 も し な い 時 間 を と り ま す 。 
モデ ム へ ++ を 送り ます 。 (改行 し ませ ん ) PRINT #1." キ キリ 
OK が 返っ て きた ら 、ATH を 送り ます 。 
ファ イル を 閉じ ます 。 
Hazime へ と ば し ます 。 
1 秒 以 上 停止 し た 後に +++ を 送る と 、 オ ン ラ イン モー ド か ら コ マン ドモ ー ド へ 
切り 堆 わ り ま す 。 そ こ で 、ATH と いう 電話 を 切る コマ ンド を 送り ます 。 
GOTO Hazime は 、 あ まり 使わ な い ほ う が よ い の で す が 、 こ こ で は 緊急 避難 的 に 
使い まし た 。 
プロ グラ ム の 先頭 に は 、Hazime: と いう 名 札 を 付け て お いて 、 そ の 位置 へ プロ 
グラ ム が 進む せよ うに し まし た 。 


@@@@O6 


プ ブレー ク 信 号 の 機能 は 、 セ ンタ ー 側 の 処理 の 中 断 を 求め る も る の で す 。 例 えば 、 掲 示 
板 を 読む 場合 に 、 長 い メ ッ セ ー ジ の 受信 を 中 断 し て 次 に 進み た い 場 合 に 使い ます 。 

し か し 、 実 は 、MNP を 使用 し て いる と き は 、 効 き 目 が よく な いよ う で す 。 なぜなら 、 
MNP は モデ ム 間 の パケ ッ ト 通 信 の よう な も の で すし 、 長 い ブ レー ク 信 号 を 送っ て も 、 
機構 上 3 0 0 ミリ 秒 の プレ ー ク 信号 に な っ て 送ら れる か ら で す 。 

プレ ー ク 信号 の プロ グラ ム は 、 IO ポー ト に コマ ンド を 送る こと に よっ て 、 プ レー 
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ク 信 号 を RS 2 3 2C と か ら モ デム へ 送信 し ます 。 手順 は 次 の と お り で す 。 
( 1 ) プレ ー ク 信号 ON を 送り ます 。 
IO ポー ト ア ドレ ス 色 H3 2 へ 、 コ マン ド 名 H3F を 送り ます 。 
OUT 必 H32, &H3F 
( 2 ) 時 間 を お きま す 。 
TIMER か ら 秒 数 を 読み 取っ て 、 1 秒 以上 の 時 間 を お きま す 。 
(3 ) プレ ー ク 信号 OFF を 送り ます 。 
IO ポー ト ア ドレ ス &H3 2 へ 、 コ マン ド &H3 7 を 送り ます 。 
OUT 必 H32, 必 H37 


(1) メイ ンプ ロ シ ー ジ ャ 





DEFINT A-Z 
(省略 ) 

DECLARE SUB AtSousin (SousinData$, KakuninData$) 

* 通 信 (TUUSIN6.BAS) 

TYPE SetteiType *ー オ ー ト ログ イン の レコ ー ド タイ プ 
Namae ASSTRING* 20 **ー セ ンタ ー の 名 称 
Denwa AS STRING* 16 *ー セ ンタ ー の 電話 番号 
Mtnp ASSTRING* 1 *ーMNP 接 続 
Sokudo ASSTRING* 4 **- 表 信 速 度 
Parity ASSTRING* 1 *ー ノ パパ リティ 
Nagasa ASSTRING* 1 *ー デ ー タ 長 
StopBit AS STRING* 1 *ー ス トッ プ ビ ッ ト 
Setuzoku AS STRING * 20 * 一 電話 接続 後 の 送信 信号 
IdPrompt AS STRING * 10 *ー 1 D 番 号 の プロ ンプ ト 
IdBangou AS STRING* 10 *ー ID 番号 
PassPrompt AS STRING* 10 *ー パ スワ ー ド の プロ ンプ ト 
PassWord ASSTRING\* 10 >ー バ パスワード 

END TYPE 

DIM SetteiR AS SetteiType *ー レ コー ド 

Hazime: *ー は じ め の 名 札 

DO 
VIEW PRINT 1 TO25 
CLS *ー 画 面 消去 
KeySet *ー フ ァ ン クシ ョ ン キ ー の セ モット 
Kiroku = 0 


PRINT "1: 通信 の 開始 ": PRINT 
PRINT "2: 通信 条件 の 設定 ":・ PRINT 
PRINT "3: 通信 条件 の 訂正 ": PRINT 
PRINT "4: 終了 ": PRINT 
PRINT "選択 し て 番号 を 入力 し て くだ さい 。-->": 
DO: K$ = INKEY$: LOOP UNTIL K$ >= "0" AND K$ <= "4" 
PRINT 
SELECT CASE K$ 
GE "TP *-1 な ら ば 
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CenterSentaku * ュ ーー セン ター を 選択 し て 


Setuzoku KakuninData$ *ー 接 続 する 
IF KakuninData$ = "CONNECT" THEN 
**ーCONNECT と か えっ て きた ら 
Souyusin * 一 送受 信 を 開始 
END IF 
CASE "2": Settei "2 なら ば 、 通 信条 件 の 設定 
CASE "3": Teisei *-3 な ら ば 、 通 信条 件 の 訂正 
CASE "4" 
VIEW PRINT 1 TO2S: CLS : CLOSE : END "4 な ら ば 、 終 了 
END SELECT 
LOOP 
END 





( 2 ) 電話 を 切断 する サ プ ブルー チン 


DenwaSetudan: * 一 電話 を 切断 する サブ ルー チン 
T& = TIMIER *ー タ イマ ー か ら 秒 数 を 複写 
DO: LOOP UNTIL TIMER > (T&+ 1) *ー] 秒 以 上 を 経過 し た ら 次 へ 
PRINT #1。 "オキ 二 ": *ー モ デム を コマ ンド モー ド へ 切り 相 え 
T& = TIMER *ー タ イマ ー か ら 秒 数 を 複写 
DO: LOOP UNTIL TIMER > (T+ 1) *ー] 秒 以 上 を 経過 し た ら 次 へ 
AtSousin ""。OK$ 
AtSousin "ATH", "OK" *ー モ デム 停止 、 電 話 切 断 

Mtodoru: * デ ー メ イン へ 戻る サブ ルー チン 
CLOSE *ー フ ァイル を 閉じ る 
GOTO Hazime > ュー メイ ン へ 戻る 

RETURN 





(3 ) プレ ー ク 信号 を 送る サブ プルー チン 


BreakSingou: * 一 プレ ー ク 信号 を 送る サ プ ル ー チ ン 
OUT &H32, TH3F *ー ブ レーク 信号 ON を 送る 
T& = TIMER 
DO: LOOP UNTIL TIMER > T 肥 + 1 * 一 時 間 を お く 
OUT &H32, HH37 *ー ブ レー ク 信 号 OFF を 送る 
RETURN 


KirokuHazirne: *ー フ ァイル を 保存 する サブ ルー チン 
(省略 ) 
RETURN 


KirokuOwari: *ー 通 信 記 録 の 保存 を 終了 し て ファ イル を 閉じ る サブ ルー チン 
(省略 ) 
RETURN 
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FileSousin: *ー フ ァイル を 一 括 送 信 す る サブ ルー チン 


(省略 ) 
RETURN 





(4) ファ ンク ショ ン キ ー を 設定 する サ プ プ ブ プロシージャ 


















SUB KeySet > ファ ンク ショ ン キ ー を 設定 する サ プ プ プロシージャ 


KEY 2, "電話 切 " *ー フ ファンクション キー2 は 電話 切る 

KEY 3, "最初 へ " *ー フ ァ ン クシ ョ ン キ ー3 は メイ ン の 最初 に 戻る 

KEY 6, "記録 始 " >ー フ ァ ン クシ ョ ン キ ー6 は 受信 記録 の ファ イル 保存 
KEY 7, "Hi 送信 " * 一 ファ ンク ショ ン キ ー7 は ファ イル の 一 括 送信 

KEY 9, ":BREAK" *ー フ ァ ン クシ ョ ン キ ー9 は ブレーク 信号 の 送信 

KEY ON *ー フ ァ イ ク ショ ン キ ー の 画面 表示 

ON KEY(2) GOSUB DenwaSetudan "一 f・1 を 押す と 電話 切断 の サ プ プ ロ シ ー ジ ャ へ 
ON KEY(3) GOSUB Mtodoru *ーf 2 を 押す と メイ ン へ 戻る サブ プロシージャ へ 


ON KEY(6) GOSUB KirokuHazime "ーーf6 を 押す と ファ イル 保存 の サブ ププ ロ シ ー ジ ャ へ 
ON KEY(7) GOSUB FileSousin  "'ーf7 を 押す と ファ イル 送信 の サ プ プ ロ シ ー ジ ャ へ 
ON KEY(⑨) GOSUB BreakSingou "一 f 9 を 押す と ブレ イク 信号 送信 の サ プ プ ロ シ ー ジ ャ へ 


KEY(2) ON *ーf 2 の 機能 を ON 
KEY(3) ON *ーf 3 の 機能 を ON 
KEY(6) ON *=f 6 の 機能 を ON 
KEY(7) ON *<-f 7 の 機能 を ON 
KEY(9) ON *ーf 9 の 機能 を ON 


LINE (0, O)-(639, 16), 1, BF 

LINE (0, 333)-(639, 368), 1, BF 

LINE (0, 369)-(639, 384), 3$, BF 

LINE (0, 385)-(639, 399), 4, BF 

VIEW PRINT 2 TO 22 *ー フ ファンクション の 表示 が 消 を えな いよ うに 
END SUB 


(以下 の サブ プロ シー ジャ は 前 節 に 同じ な の で 省略 し ます 。) 


SUB AtSousin (SousinData$, KakuninData$) "一 送信 の サブ プ プ ロ シ ー ジ ャ 


SUB BackSpace >ー バ ックス ペー ス の サブ ププ ロ シ ー ジ ャ 
SUB CenterSentaku *ー ニ セン ター を 選択 する サブ プロ シー ジャ 
SUB Settei * 一 接続 条件 等 の 設定 


SUB Setuzoku (KakuninData$) * デ 接続 の サブ プロ シー ジャ 
SUB Sousin (SousinData$) 

*< 自 動 接続 の た め の コ マン ド を 送信 する サ プ プ ロ シ ー ジ ャ 
SUB SouZyusin * 一 送受 信 の サブ プロ シー ジャ 
SUB SpaceCut (SousinData$, S$) 

* 一 送信 デー タ の 後部 の スペ ー ス を カッ ト す る 

SUB Teisei * 一 訂正 の サブ プ プ ロ シ ー ジ ャ 
SUB ZZyusin (NM$) * 一 受信 の サブ プロ シー ジャ 
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ダー ント 関数 
ABS 関 数 
AS type 
AS STRING 
ATN 関 数 
BEEP 
CHR 関 数 
CIRCLE 
CLOSE 
CLS 
COS 関 数 
CSRLIN 関 数 
DATA 
DECLARE 
DEFDBL 
DEFINT 
DEFLNG 
DEFSNG 
DIM 
DO__LOOP UNTL 
EOF 関 数 
END SUB 
END 中 
END SELECT 
EXIT DO 
EXIT FOR 
EXIT FUNCTION 
EXTIT SUB 
FOR ___ NEXT STEP 
FUNCTION 
Fep 
GET 
GET# 


84,.86,111,195 
114,115 
234 

75 
195,197 
44.65 
109,112 
21 

241 
196,197 
80 

74 

32 

48 

30 

52 
84,.86 
69 

131 

74 

85 

71 

70 

228 

246 

150 
290.31 
246 

148 
84.86 
138 


機 能 

指定 し た 数 式 の 絶対 値 
変数 の 型 の 指定 

文字 列 の 指定 

ラジ アン 単位 で タン ジェ ント の 逆 関 数 
内 部 スピ ー カ ー を 鳴ら す 

指定 し た 文字 コー ド の 文字 を 返す 
円 , 椿 円 を 描く 

ファ イル を クロ ー ズ する 

画面 の クリ ア 

ラジ アン 単位 で 指定 し た 角度 の コサイン 
テキ スト 画面 の カー ソル 行 位置 を 得る 
READ ス テー トメ ント が 使う 定数 を 定義 
BASIC の プロ シー ジャ を 宣言 する 
変数 を 倍 精度 浮動 小数 点 型 に 定義 する 
変数 を 整数 型 に 定義 する 

変数 を 倍 長 整数 型 に 定義 する 

変数 を 単 精度 浮動 小数 点 型 に 定義 する 
配列 変数 の 要素 の 大 き さ を 指定 する 
繰返し 

ファ イル の 終り を 調べ る 

サ プ プ ロ シ ー ジ ャ の 終り 

IF ステ ー ト メン トブ ロッ ク の 終り 
SELECT ス テー トメ ント プ ブロッ ク の 終り 
DO__LOOP ル ー プ を 抜け 出る 
FOR_NEXT ル ー プ を 抜け 出る 
FUNCTION プ ロ シ ー ジ ャ を 抜け 出る 
SUB プ ロ シ ー ジ ャ を 抜け 出る 

指定 し た 回 数 だ け 繰 り 返 す 

プロ シー ジャ の 宜 言 

漢字 の 入力 モー ド に 変え る 

グラ フィ ッ ク パ ター ン を 読み 込む 
ファ イル か ら デ ー タ を 読み 込む 
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な ー ト ルン ト | 関数 
GOSUB 
*%INCLUDE 
IF_ THEN_ ELSE 
INKEY 関 数 
INPUT 
INPUT9 関 数 
INPUTY 関 数 
INSTR 関 数 
KEY 
KEYON/OFEF 
KINSTR 関 数 
KMUD$ 関 数 
LEN 節 
LINE 
LOC 関 数 
LOCATE 
LOF 関 数 
LPRINT 
MID% 関 数 
MOD 演 算 子 


MouseBouder/MOUSE.BI 


MouseHide / タク 
MouseInit / タ ヶ 
MouseLocate/ ヶ 
MouseMode / ヶ 
MousePoll / ヶ 
MousePush / ヶ 
MouseReady%/ ヶ 
MouseRelease/ タク 
MouseShow / ヶ 
SetMouseEvent/ ヶ 
ON KEY( GOSUB 
ON PLAY() GOSUB 
ONUEVENT GOSUB 
OPEN "COMn:" 


ペー ジ 
104 
147,218 
37,83,88,89 
70 

36 

258 
252,2353 
139,232 
271 
196,271 
139 

83 
109,112 
21.28,S4 
252,253 
101 

136 

39 

82 

59 

228 
230,236 
218,.219 
228 

223 

219 
218,219 
230 

230 
218,219 
230,236 
195,196,271 
104 
233,237 
251 


機 能 

サブ ルー チン に ジャ ンプ する 

プロ シー ジャ 定義 モジ ュー ル 使 用 宣言 
論理 式 の 条件 判断 を 行う 

キー 入力 し た 文字 を 読み 込む 

デー タ を 入力 する 

指定 し た バイ ト 数 の 文字 列 を 読み 込む 
指定 し た 文字 数 の 文字 列 を 読み 込む 
文字 列 中 の 指定 文字 列 の バイ ト 位置 
77 光 光 汰 に 文字 列 を 定義 する 

フツ グ 当 キー に よる 割込み の 制御 

文字 列 中 の 指定 文字 列 の パイ ト 位置 
指定 し た 文字 列 の 一 部 を 取り 出す 
バイ トラ 長 を 得る 

グラ フィ ッ ク 画 面 上 に ライ ン を ひく 
ファ イル 内 の 位置 を 得る 

テキ スト 画面 上 の 行 と 桁 の 指示 を する 
ファ イル の 大 き さ を 得る 

プリ ンタ に デー タ を 出力 する 

指定 し た 文字 列 の 一 部 を 取り 出す 
剰余 を 返す 

マウ ス の 移動 範囲 の 設定 

マウ ス の 非 表示 

マウ ス の 初期 化 

マウ ス の 表示 位置 の 設定 

マウ ス の タイ プ の 設定 

マウ ス の 現在 の 位置 等 の 取得 

ボタ ン を 押し た 時 の 位置 等 の 取得 
マウ ス が 利用 可能 の 判定 関数 

ボタ ン を 離し た 時 の 位置 等 の 取得 
マウ スカ ー ソ ル の 表示 

マウ ス 割 込み 条件 の 設定 

ファ ンク ショ ン キ ー に よる 割込み 
BGM デ ー タ バッ ファ 状態 で の 割込み 
ユー ザー 定義 イベ ント の 割込み 
通信 ポー ト の ファ イル を 開く 


ー284 一 


な ー ド ント 関数 


ペー ジ 
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機 能 


出力 用 シー ケン シャ ルフ ァイル を 開く 


OPEN_ FOR OUTPUT 

OPEN_ FORRANDOM 

OUT 

PAINT 

PALETTE 

PLAY 

PLAY ON/OFF 

POS(O) 

PRESET 

PRINT 

PRINT USING 

PSET 

PUT 

PUT# 

RANDMIZE 

READ 

RETURN 

RND 関 数 

SCREEN 関 数 

SELECTCASE 
CASE 節 
CASE IS 節 

SIN 関 数 

SOUND 

SUB _ END SUB 

SWAP 

TIMER 関 数 

TYPE_ENDTYPE 

UEVENT ON/OFEF 

VAL 

VIEW 

VIEW PRINT 

WINDOW 

WRITE# 


109,112 
278 

46 

101 

103 

104 
196,197 
99 

39 

62 

39 
85,86 
19395 
43 

80 

105 

42 

101 

71 

71 

73 
238,241 
106 

74 

121 

43 

113 
236,237,.238 
82.83 
63 

163 

63 
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ラン ダム ファ イル を 開く 

1I ノ 0 ポー ト に 1 バイ ト 送 出 

指定 し た 領域 を 指定 し た 色 で 塗り つぶ す 
パレ ッ ト 番 号 に 色 コ ー ド を セッ ト す る 
音楽 演奏 を 行う 

BGM バ ッ フ ァ の 割込み を 制御 

テキ スト 画面 の カー ソル 桁 位置 を 得る 
グラ フィ ッ ク 画 面 に ドッ ト を 描く 
画面 に デー タ を 表示 する 

指定 書式 で 画面 に デー タ を 表示 する 
グラ フィ ッ ク 画 面 に ドッ ト を 描く 

グラ フィ ッ ク パ ター ン を 表示 する 

ファ イル に デー タ を 書き 込む 
乱数 系 列 を 初期 化す る 

DATAー- メ ッ ト か ら 値 を 読込 み 変数 に 代入 
サブ ルー チン か ら 戻 る 

0 ~ 1 の 範囲 の 単 精度 の 乱数 を 返す 
グラ フィ ッ ク 画 面 の モー ド を 設定 する 
条件 式 の 1 つ を 実行 する 

数 値 式 また は 文字 列 式 

範囲 を 表す 数 値 式 また は 文字 列 式 
ラジ アン 単位 で 指定 し た 角度 の サイ ン 値 
スピ ー カ ー か ら 音 を 出す 

サブ プ プ ログ ラム の 始め と 終り 

2 つの 変数 の 値 を 入れ 換え る 

午前 0 時 か ら 現 在 まで の 秒 数 を 返す 
ユー ザー 定義 の デー タ 型 を 宣言 する 
ユー ザー 定義 イベ ント の 割込み を 制御 
数 値 文字 列 を 数 値 に 変換 する 

グラ フィ ッ ク 画 面 の 表示 領域 指定 
テキ スト 画面 の スク ロー ル 範 囲 を 指定 
ビュ ー ポ ー ト の 論理 座標 を 指定 

シー ケン シャ ルフ ァイル に デー タ 書 込み 
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参考 図書 





ブラ ッ ク ボ ックス 開け ちゃ っ た // 堀口 秀 員 監修 村松 浩幸 閉 


e コン ピュ ー タ を 学び 始め た 方 々 へ 
B5 判 124 頁 定価 2.600 円 (本 体 2.524 円 ) 


「 計 算 す る 」「 文 字 を 書く 」「 図 形 を 描く 」「 検 索 す る 」「 通 信 す る 」… 
コン ピュ ー タ の 基本 機能 の し くみ を サン プル プロ グラ ム に 従っ て 
実習 形成 で 体得 で きる 。3.5/5 イ ンチ フロ ッ ピ ー・ デ ィ ス ク つ き 。 





パソ コン ・ グ ラフ ィ ッ クス 即 戦力 井出 昭 閉 
@ 授業 に 生き る バー トナ ー 
B5 判 134 貢 定価 1.300 円 (本 体 1.262 円 ) 


シミ ュ レ ーション ・ ソ フト 作成 の た め の 懇 切 丁寧 な 入門 書 。 生 
徒 使用 も で き , 実技 講習 の テキ スト と し て も 最適 。 NEC・ 富 士 
通 共通 版 。 言語 BASIC。 





kk ゅ の 実践 テク ニッ ク 集 井出 昭 閉 


B5 判 144 頁 定価 1.240 円 (本 体 1.204 円 ) 


に 中 学校 の 数 学 の 先生 を 対象 と し て 様々 な テク ニッ ク の 具体 
的 か つ 懇 切な 解説 と サブ ルー チン 用 プロ グラ ム (FD「 ユ ー テ ィ 
リティ ー 別 売 ) の 紹介 。NEC98 シ リー ズ 用 , 言語 BASIC。 





パソ コン ソフ ト 





情報 基 徐 コノ ピュ ー タ シミ ュ レ ー タ ( う tB ManageT 

定価 19,400 円 (税別 ) 

PC-9800 シ リー ズ FMR-50 シ リー ズ , FM-TOWNS 対 応 
3.5 イ ンチ また は 5 イン チ プ ログ ラム デイ スク 1 枚 学習 ノー ト 付 


プロ グラ ミン グ 学 習 の 導入 と し て 命令 の 機能 や コン ピュ ー タ 内 
の デー タ の 流れ の 概念 を わか りや すく 学習 する こと を 目的 と し 
た シミ ュ レ ーション 型 の ソフ トウ ェ ア 。 





情報 基礎 用 グラ フィ ッ ク ワ ー プ ロ 「D ロ ijF」 


定価 22.000 円 (税別 ) 
PC-9800 シ リー ズ (VX 以 降 ) 


@ 画面 上 で 縦 書 きも で き , 画面 で 見 た まま の 形 で 印刷 が 可能 。 
@ サ ンプ ブル デー タ と し て 教科 書 の 題材 を 取り 上 げ , 指導 案 例 を 
添付 。 





情報 基礎 用 表 計 算 選 デー タベース 「 SC 引 」 


定価 18.000 円 (税別 ) 
PC-9800 シ リー ズ (VX 以 降 ) 


@ 数 表 と グラ フ を 同時 に 表現 で き , 
修正 が 可能 。 

@ 豊富 な サン プル デー タ を 用 意 で きる 上 , 成績 管理 ・ 図 書 管理 
等 様々 な 用 途 に も 充分 活用 で きる 。 


グラ フ を 描き な が ら デ ー タ 





TOWNG 情報 基礎 「 選 LET-F」 


定価 30,.000 円 (税別 ) 
FM-TOWNS 


@ 情報 基礎 の 学習 内 容 に 対応 し た 日 本 語 ワ ー ド プロ セッ サ ・ 図 
形 処理 ・ 表 計算 を グラ フ 作 成 ・ デ ダー タベース の 統合 ソフ ト 。 
@ 4 機能 を 同一 画面 上 で 操作 で き ,、 デー タ 表 現 の オー バー ラッ 

プ が 可能 。 





漢字 マッ チ 

定価 7.800 円 (税別 ) 

PC-9800 シ リー ズ (VM 以 降 ). FMR-50 シ リー ズ , 
FM-TOWNS 対 応 


@100 種 類 の “へん” と “つくり”" の カー ド か ら 2 枚 を 選ん で , 
正しい 漢字 を 作る ゲー ム 感 覚 の ソフ ト 。 





小学 校 算 数 シミ ュ レ ーション 4-ーB 年 
定価 各 9,700 円 (税別 ) 

PC-9800 シ リー ズ (VM 以 降 ) 

FMR-50 シ リー ズ . FM-TOWNS 対 応 


@ 一 斉 授業 の 形態 を こわ さ ず , 授業 の 中 に 手軽 に コン ピュ ー タ 
を 取り 入れ られ る 。 

@ 各 ソフ ト の 演示 時 間 が 数 分 以内 に 収まる よう な ショ ー ト プロ 
グラ ム 構 成 。 








中 学校 数 学 ニュ ー シ ミ ュ レ ーション 菩 形 編 1 年 


定価 各 9,900 円 (税別 ) 
PC-9800 シ リー ズ , FMR-50 シ リー ズ , FM-TOWNS 対 応 


教室 に コン ピュ ー タ が 数 台 の 環境 で も 使え る 演示 形式 の シミ ュ 
レー ショ ン ソ フト 。 授業 に 容易 に 取り 込め る , ショ ー ト プロ グ 
ラム 構成 。 だ れ で も 使え る 親切 な 指導 例 付 。 





中 学校 数 学 シミ ュ ユ レ ーション Part』 1-3 年 


定価 各 7,800 円 (税別 ) 
PC-9800 シ リー ズ , FMR-50 シ リー ズ , FM-TOWNS 対 応 


@ 数 式 ・ 関 数 領域 の 演示 形式 の シミ ュ レ ーション ソフ ト 。 
e@ 授業 に 容易 に 取り 込め る ショ ー ト プロ グラ ム 構 成 。 
@ だれ で も 使え る 親切 な 指導 案 例 付 。 





中 学校 数 学 課題 学習 用 ソフ ト LBTt'S try 


定価 各 9,900 円 (税別 ) 
PC-9800 シ リー ズ , FMR-50 シ リー ズ , FM-TOWNS 対 応 


@ 平成 5 年 か ら 実 施さ れる 課題 学習 の 教材 の うち , 黒板 や プリ 
ント で は イメ ー ジ し に くい 題材 を 選択 。 

@22 の テー マ を ショ ー ト プロ グラ ム に まとめ , 授業 に 容易 に 取 
り 組め る 。 ワ ー ク シー ト と 指導 案 例 付 。 





LET'S PRACTICE 1-3 年 


定価 各 17,000 円 (税別 ) 
PC-9800 シ リー ズ (VM 以 降 ) 


e 教科 書 の 内 容 に 対応 し た 問題 の 中 か ら 必 要 な 問題 を 呼び だ し 
て , レイ アウ ト 印 刷 す る こと に より , プリ ント 教材 や テス ト 
問題 を 簡単 に 作成 で きる 。 





中 学校 理科 理科 グラ フツ ー ル 実験 GHAPH 


定価 9.690 円 (税別 ) 
PC-9800 シ リー ズ , FMR-50 シ リー ズ , FM-TOWNS 対 応 


実験 名 を 選ん だ ら , あと は 測定 値 を 入力 する だ け で 即座 に グラ 
フ 表示 。 実 験 誤差 も 一 目 で わか り ま す 。 操 作 方 法 は すべ て 画面 
に 表示 され る マニ ュ ア ルレ ス 仕 様 で す 。 指導 案 例 付 。 





草花 の 観察 「 す みれ 」 


定価 24.000 円 (税別 ) 
PC-9800 シ リー ズ , FMR-50 シ リー ズ , FM-TOWNS 対 応 


@ 簡単 な 操作 と 美しい グラ フィ ックス て 身近 
で きる 。 

@ デー タ は , 市 販 の お 絵かき ソフ ト で 簡単 に 追加 ・ 修 正 が 可能 。 

@ 授業 だ け で な く 課 外 学 習 か ら 生 涯 学習 まで 幅広 く 使 える 。 


な 草花 271 種 が 検索 





世界 全 回 描画 シミ ュ レ ーション 「 エ リ シ ス 」 


定価 19.400 円 (税別 ) 
PC-9800 シ リー ズ (VX 以 降 ) 


@33 種 類 の 図法 を 選択 し て , 任意 の 地点 を 中 心 に 正 軸 法 ・ 横 軸 
法 ・ 斜 軸 法 の 世界 地図 が 自由 に 描け る 。 
@ 各 種 凶 形 ソ フト ヘ へ デー タ 変 換 も 可能 。 





栄養 計算 HALTHY I 


定価 12,800 円 (税別 ) 
PC-9800 シ リー ズ , FMR-50 シ リー ズ , FM-TOWNS 対 応 


簡単 な 操作 で 食品 成分 表 デ ー タ を 駆使 し て 、 楽し く ブ 立 作成 が 
で きる ソフ ト 「HEALTHY」 を , さ ら に 使い や すく , さら に 機能 
アッ プ し た 上 で , 10 群 と 4 群 に , 対応 。 





数 学 用 図形 作成 & グ ラフ 作成 ソフ ト F-TUOL/SD 


定価 24.000 円 (税別 ) 
PC-9800 シ リー ズ (VX 以 降 ) 


@ 授業 に お ける 電子 黒板 や プリ ント 教材 の 作成 に 使え る 数 学 用 
図形 作成 & グ ラフ 作成 ソフ ト 。 
@ 授業 に すぐ 役に立つ 高校 数 IT サン プル デー タ を 添付 。 





ミニ ーー ミソ コト ハバ 地学 / 地 球 の 内 部 構造 を 調べ る 
高校 理科 シミ ュ レ ーション ソフ ト 生物 ノ 己 伝 の し くみ を 調べ る 


化学 / 化 学 反応 の 速 さ 
物理 ボー ル の 運動 


定価 各 36,000 円 (税別 ) 
NEC PC-9800 シ リー ズ 対 応 


@ 個別 学習 (グル ー プ 学習 ) 及び , 先生 の 演示 実 
験 と し て 用 いる こと が 可能 。 

@ 生徒 ワー クシ ー ト と の 連携 に よる 学習 の 展開 。 

@ コ ンピュータ ・ グ ラフ ィ ッ クス に よる ビジ ュ ア 
ル な 画面 。 





* こ の ほか に 英語 教科 書 準拠 ソフ ト が あり ます 。 
* そ れ ぞ れ 追 加 フ ロッ ピー・ 


学校 パッ ク 21 本 等 を 用 意 し て あり ます 。 


TSBN4-487-79085-9 | 





9784487790852 


1910055028005 
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楽し く 学 べ る 
DS 【 定価 2.800 円 (本 体 2,718 円 ) 
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